Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Form1.KeyPress
Dim PressedKey As String = Asc(e.KeyChar)
Label1.Text = PressedKey
End Sub
Label1.Text = e.KeyChar.ToString
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Label1.Text = CType(e.KeyCode, Keys).ToString
End Sub
Enum Test Test1 = 1 Test2 = 2 Test3 = 69 End Enum
CType(69, Test).ToString
