' Lokale Variable zum stoppen
Private bProcess as Boolean
 
Private Sub cmdStop_Click()
  ' Prozess anhalten
  bprocess = false
end sub
Private Sub clmAktivieren_Click()
  ' Damit die Do Loop Schleife Läuft
  bProcess = true
...
  Do
    Doevents
    ... Un dein Code
  Loop While bProcess
...
end sub