Author  

Language  

Operating Systems  

Private Declare Function GetAsyncKeyState Lib "user32.dll" _
                (ByVal vKey As Long) As Integer
                
'//ESCAPE
Const VK_ESCAPE = &H1B
'//Button Click
Const VK_LBUTTON = &H1

'//Interrupting A Do Loop
'//Give user ability to interrupt loop
Private Sub cmdStart_Click()
   Do
    If GetAsyncKeyState(VK_ESCAPE) < 0 Or _
       GetAsyncKeyState(VK_LBUTTON) < 0 Then
       Debug.Print "-------> EXIT <-------"
       Exit Do
    End If
    Debug.Print "______ LOOPING ___________"
    Loop
End Sub