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.

Code:
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