Declare Function GetAsyncKeyState Lib "User" (ByVal Key As Integer) As Integer
Const KEY_ESCAPE = &H1B
 
Sub Command1_Click()
    Text1.Text = "Press ESCAPE to quit"
    Do While DoEvents()
        If GetAsyncKeyState(KEY_ESCAPE) Then
            Text1.Text = "ESCAPE pressed"
            Exit Sub
        End If
    Loop
End Sub