Private Sub Form_Load()
  Me.KeyPreview = True
End Sub
 
Private Sub Form_KeyPress(KeyAscii As Integer)
  If KeyAscii = 27 Then
    ' ESC-Taste
    ...
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de