Přerušení cyklu
Postup:
Private Declare Function GetAsyncKeyState Lib "user32.dll"
_
(ByVal vKey As Long) As Integer
'ESC
Const VK_ESCAPE = &H1B
'Kliknutí levým
talčítkem myši
Const VK_LBUTTON = &H1
Private Sub cmdStart_Click()
Do
If GetAsyncKeyState(VK_ESCAPE) < 0 Or _
GetAsyncKeyState(VK_LBUTTON) < 0 Then
Debug.Print "Přerušení cyklu ..."
Exit Do
End If
Debug.Print "______ LOOPING ___________"
Loop
End Sub