Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Label1.Caption = "KeyDown"
End Sub
 
Private Sub Form_KeyPress(KeyAscii As Integer)
    Label1.Caption = "KeyPress"
End Sub
 
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    KeyCode = 0
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub