Private Sub Command1_Click()
Text1.Text = Inet1.OpenURL("http://gruntbusters.cybton.com/ip.php")
End Sub
 
Private Sub Form_Load()
Text1.Text = Inet1.OpenURL("http://gruntbusters.cybton.com/ip.php")
End Sub
 
Private Sub Timer1_Timer()
Text2.Text = Text2.Text - 1
If Text2.Text = -1 Then Text2.Text = 600
If Text2.Text = 2 Then Text1.Text = ""
If Text2.Text = 1 Then Text1.Text = Inet1.OpenURL( _
  "http://gruntbusters.cybton.com/ip.php")
If Text1.Text = "" Then Label3.Caption = "offline" Else Label3.Caption = _
"online"
If Text2 = 0 Then Inet1.OpenURL ("http://gruntbusters.cybtob.com/zettelip.php")
End Sub