Private Declare Function GetAsyncKeyState Lib "user32" _
           Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
 
'Konstante ESC-Taste:
Private Const VK_ESCAPE = &H1B
 
 
Private Sub Form_Load()
    Timer1.Interval = 50
End Sub
 
Private Sub Timer1_Timer()
    If GetAsyncKeyState(VK_ESCAPE) > 0 Then End
End Sub