I made a web browers, but.. .

[chemicalNova]

Well, that won't work because Integers can only hold a maximum of 32767.

I think you are better off using a string (what is the maximum for a Long?)

Private Sub Form_Load()
 
    Timer1.Interval = 1000  '1 sec
    Timer1.Enabled = True
    
End Sub
 
 
'create a Timer on your form and set Interval = 1000 (1 second or whatever)
Private Sub Timer1_Timer()
Static strCounter As String
Dim add As String
add = "1"
 
    strCounter = strCounter + add
    If strCounter ="360000" Then '6minutes as passed
        WebBrowser.Navigate ("www.google.com")
        intCounter = 0
    End If
 
End Sub

Phreak