ช่วยด้วยค่ะ Textbox ไม่แสดงตัวอักษรตัวแรกหลังถูกซ่อน-Vb6 Form Keydown

Private Sub Form_Load()
Text1.Visible = False
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim str As String = chr(KeyCode)
Text1.Visible = True
Text1.Text = str.ToString
End Sub

Private Sub Form_Load()
Text1.Visible = False
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Text1.Visible = True
Text1.Text = Chr(KeyCode)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Text1.Visible = True
Text1.Text = Chr(KeyAscii)
End Sub