Остановить выполнение процесса при нажатии на кнопку

[Aleksandr]

Мне необходимо чтобы пинг повторялся через определенные промежутки времени. При нажатии на кнопку останавливался. Я делаю следующим образом, но я его не могу остановить. Как быть?

Private Sub CommandButton3_Click()
      Время = Cells(1, 6)
   ' Application.OnTime Now + TimeValue(Время)
 Do If Application.Wait(Now + TimeValue("0:00:10")) Then
    
If CheckBox1.Value = True Then
    pid = Shell("ping " + CheckBox1.Caption, 0)
 hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
 If hProcess <> 0 Then
    Do
    GetExitCodeProcess hProcess, exit_code
        DoEvents
    Loop Until exit_code <> STILL_ACTIVE
    CloseHandle hProcess
 End If
 If exit_code = 0 Then
CheckBox1.BackColor = &H80FF80
 Else
CheckBox1.BackColor = &H8080FF
End If
Else
CheckBox1.BackColor = &HFFFFFF
End If
End If

 Loop While CheckBox8.Value = True
    
End Sub

[Aleksandr]

Вот так еще делаю, но все равно зависает.

Private Sub CommandButton3_Click()
   
   Время = Cells(1, 6)
   ' Application.OnTime Now + TimeValue(Время), "PingAllAP"
 
 Do
On Error Resume Next: stopped = False
If Application.Wait(Now + TimeValue(Время)) Then
  
If CheckBox1.Value = True Then
    pid = Shell("ping " + CheckBox1.Caption, 0)
 hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
 If hProcess <> 0 Then
    Do
    GetExitCodeProcess hProcess, exit_code
        DoEvents
    Loop Until exit_code <> STILL_ACTIVE
    CloseHandle hProcess
 End If
 If exit_code = 0 Then
CheckBox1.BackColor = &H80FF80
 Else
CheckBox1.BackColor = &H8080FF
End If
Else
CheckBox1.BackColor = &HFFFFFF
End If
End If

 Loop While  Loop While stopped = True    
End Sub

Private Sub CommandButton4_Click()
stopped = True
MsgBox "Сканирование сети остановлено!", vbInformation, "Внимание ..."
End Sub

[kuklp]

У Вас там два цикла. Во внутреннем цикле ни чекбоксы, ни переменные не опрашиваются. Вот программа и крутится пока exit_code <> STILL_ACTIVE