Private Declare Function Sleep Lib "kernel32" Alias "SleepEx" (ByVal _
  dwMilliseconds As Long, ByVal bAlertable As Long) As Long
 
Dim boStop As Boolean
Dim boRunning As Boolean
 
Private Sub cmdStop_Click()
 
  If boRunning Then
    boStop = True
  End If
 
End Sub
 
Private Sub cmdRun_Click()
 
  Dim i As Long
 
  If boRunning Then Exit Sub '!!
 
  boStop = False
  boRunning = True
  cmdRun.Caption = "Running"
  For i = 1 To 3000
    Sleep 10, 0
    DoEvents
    If boStop Then Exit For
  Next i
  boRunning = False
  cmdRun.Caption = "Run"
 
End Sub

Gruß
Dirk

--
?Get it right the first time

Beitrag wurde zuletzt am 12.08.10 um 13:20:16 editiert.