[الاستاذ خليل]

Dim a As Integer
'If a <> 0 Then GoTo 10

a = 0
10
a = a + 1


  Label1.Caption = a
  Dim Start As Long
    Start = Timer
    Do While Timer < Start + 1 'a 3 second delay (Change To any numer you want)


        DoEvents ' Yield To other processes.
        Loop
       If a = 120 Then
     

MsgBox ("نفذ الوقت")
     Exit Sub
     
     End If
     
      GoTo 10