KeyPress Example for Visual Basic

Private Sub LEADRasterContainerViewer_KeyPress (ByVal KeyAscii As Integer) 
Me.Caption = " Key press "
End Sub