Private Sub Form_Load()
  Me.KeyPreview = True
End Sub
 
Private Sub Form_KeyPress(KeyAscii As Integer)
  Label1.Caption = CStr(KeyAscii)
  Label2.Caption = Chr$(KeyAscii)
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de