KeyDown example for Visual Basic

Private Sub LEADImgList1_KeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer)
   Form1.Caption = "Key " & Str(KeyCode) & " was pressed"
End Sub