KeyUp example for Visual Basic

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