Here you go:

VB Code:
  1. 'In the General Declarations

  2. Dim i as Integer

  3. '-------------------------------------------------------------------------------

  4.  
  5. Your Sub()

  6.  
  7.     MORE CODE HERE

  8.     Timer1.Start()

  9.  
  10. End Sub

  11. '-------------------------------------------------------------------------------

  12. Timer1_Tick()

  13.  
  14. i = i + 1

  15.  
  16.     If i = value Then

  17.         CODE HERE

  18.         Timer1.Stop()

  19.     End If

  20.  
  21. End Sub


gL,
Furry