Private Sub Form_Load()
  Me.KeyPreview = True
End Sub
 
Private Sub Form_KeyPress(KeyAscii As Integer)
  If KeyAscii = 97 Then
    KeyAscii = 0
    Button1.Value = True
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de