Article ID: 195294
Article Last Modified on 3/18/2005
Private Sub Check1_KeyDown(KeyCode As Integer, Shift As Integer)
Text1.Text = Text1.Text & vbCrLf & "Check1 KeyDown: " & KeyCode
End Sub
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
Text1.Text = Text1.Text & vbCrLf & "Cmd1 KeyDown: " & KeyCode
End Sub
Private Sub Command2_KeyDown(KeyCode As Integer, Shift As Integer)
Text1.Text = Text1.Text & vbCrLf & "Cmd2 KeyDown: " & KeyCode
End Sub
Private Sub Option1_KeyDown(KeyCode As Integer, Shift As Integer)
Text1.Text = Text1.Text & vbCrLf & "Option1 KeyDown: " & KeyCode
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Text1.Text = Text1.Text & vbCrLf & "Text1 KeyDown: " & KeyCode
End Sub
Additional query words: Key Down KeyPress wce wince vbce evb vbce6
Keywords: kbtoolkit kbprb KB195294