Please help me

I am making a program that will play this game for me... Its not working though. What I need it to do execute an address loads of times with each pageview getting through. But Also i need it to add another 1 to the address after each time. The address it needs to do is http://www.neopets.com/process_brit.phtml?id=99 with the id= thing going from 99 to 250 and EVERY pageview getting through. I tried doing it so everytime the state of the inet control changes it does a new page. This is what i have.


Dim Current As Integer
Dim done As Boolean
Dim CFile As String
Dim jobdone(6) As Boolean


Private Sub Command1_Click()
Inet1.Execute CFile
'Inet2.Execute CFile
'Inet3.Execute CFile
'Inet4.Execute CFile
'Inet5.Execute CFile
End Sub

Private Sub Form_Load()
Current = 97
done = False
For q = 1 To 6
jobdone(q) = True
Next
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
If State = 7 Then
On Error Resume Next

If jobdone(1) = False Then Exit Sub
jobdone(1) = False
Current = Current + 1
Label1.Caption = Str$(Current)
If Current = 200 Then
Current = 99
done = True
Label2.Caption = Label2.Caption + 750
End If
CFile = "http://www.neopets.com/process_brit.phtml?id=" + Trim$(Str$(Current))
redo:
Inet1.Execute CFile
While Inet1.StillExecuting
DoEvents
Wend
jobdone(1) = True
Inet1.Cancel
DoEvents
End If
End Sub



In the end i am hoping to have 5 threads so it can do 5 pages at once.

Why is this not working and could you conjour up some code that will please? Thanks

gantic