KeyUp Example for Visual Basic

Private Sub LEADRasterContainerViewer_KeyUp(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal lActionID As Long, ByVal lCount As Long) 
Me.Caption = " Key Up "
End Sub