[ولد رائع]

هذا مثال كامل ان شاء الله تستفيد منه

PHP كود :

Option Explicit

Dim lCounter As Boolean
Dim Stopped As Boolean


Private Sub Command1_Click()
Text1.Text = 0
Stopped = False


For lCounter = Val(Text1) To 32767
    Text1.Refresh

     Text1 = lCounter
    
  
    DoEvents
   If Stopped = True Then Exit For
   
Next
End Sub

Private Sub Command2_Click()
 Stopped = True
Text1 = 0

End Sub

Private Sub Command3_Click()
Stopped = True