how to create a loop

[castle]

i'm using microsoft visual studio 6.0 and i made a prog that will login and out of a server basically i want to add a loop or a timer to it to make it do the same thing every two minutes here's the code i got thus far i just need to know the code to make it repeat the proccess every two minutes

 

 

Dim ReturnData As String

 

Private Sub cmdStart_Click()

ReturnData = Inet1.OpenURL("http://***.1**.**4.***//PPP_doLogin.cgi?ConnID=oe00", icString)

Timer1.Interval = 5000

Timer1.Enabled = True

End Sub

 

Private Sub Command1_Click(Index As Integer)

 

Select Case Index

Case 0:

If txtURL.Text <> "" Then

RichTextBox1.Text = Inet1.OpenURL("http://1**.1**.**4.***//PPP_logout.cgi?ConnID=oe00", icString)

End If

 

Case 1:

End

End Select

End Sub

 

 

Private Sub Command2_Click()

 

Select Case Index

Case 0:

If txtURL.Text <> "" Then

RichTextBox1.Text = Inet1.OpenURL("http://***.1**.2*4.***//PPP_doLogin.cgi?ConnID=oe00", icString)

End If

 

Case 1:

End

End Select

End Sub

 

Private Sub Logout_Click()

 

Select Case Index

Case 0:

If txtURL.Text <> "" Then

RichTextBox1.Text = Inet1.OpenURL("http://***.***.25*.***//PPP_doLogin.cgi?ConnID=oe00", icString)

End If

 

Case 1:

End

End Select

End Sub

 

Private Sub Start_Click(Index As Integer)

Select Case Index

Case 0:

If txtURL.Text <> "" Then

RichTextBox1.Text = Inet1.OpenURL("http://***.***.2*4.***//PPP_logout.cgi?ConnID=oe00", icString)

End If

 

Case 1:

End

End Select

End Sub

 

Private Sub Timer1_Timer()

Text1.Text = ReturnData

If InStr(ReturnData, "999") Then

cmdStart_Click

End If

End Sub

 

 

blah looks messy i know lol like i said i ama noob and was just toying w/it but it works how i want it to now but i just want it to repeat it every 2 minutes and i have no clue how to do that

[Robby]

For VB6 help goto http://www.xtremevbtalk.com

 

We deal with .NET on this board.