de As Integer, Shift As Integer)
   lblStatus.Caption = "KeyDown " &amp; KeyCode &amp; ",Shift"
End Sub

Private Sub lvwMain_KeyPress(KeyAscii As Integer)
   lblStatus.Caption = "KeyPress " &amp; KeyAscii
End Sub

Private Sub lvwMain_KeyUp(KeyCode As Integer, Shift As Integer)
   lblStatus.Caption = "KeyUp " &amp; KeyCode &amp; ",Shift"
End Sub

Private Sub lvwMain_MouseDown(Button As Integer, Shift As Integer, x As Single,
 y As Single)
   lblStatus.Caption = "MouseDown " &amp; x &amp; "," &amp; y
End Sub
