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.