Public Class UserControl1
Inherits TextBox
Private Sub UserControl1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.GotFocus
End Sub
Private Sub UserControl1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Debug.WriteLine("downed")
Debug.WriteLine(e.KeyValue)
Debug.WriteLine(e.KeyCode)
End Sub
Private Sub UserControl1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
Debug.WriteLine("pressed")
Debug.WriteLine(e.KeyChar)
End Sub
End Class