Private n As Long
 
Private Sub cmdStart_Click()
     Do
           n = n + 1
           DoEvents
     Loop
End Sub
 
Private Sub Form1_Load()
     Timer1.Interval = 1000
End Sub
 
Private Timer1_Timer()
      If n < 25 Then 
          Form1.Print n
      Else
          Form1.Cls
          Form1.CurrentY = 0
          Form1.Print n
      End If
       n = 0
End Sub