' Webseite laden
WebBrowser1.Navigate2 (EndUrl1.Text)
 
' Timer aktivieren
Timer1.Interval = 60000
Timer1.Enabled = True
Private Sub Timer1_Timer()
  Static nMin As Long
  nMin = nMin + 1
  If nMin = 15 Then
    ' 15 Minuten vorbei
    nMin = 0
    Timer1.Enabled = False
WebBrowser1.Navigate2 (EndUrl2.Text)
  End If
End Sub
 
Private Sub Timer1_Timer()
  Static nMin As Long
  nMin = nMin + 1
  If nMin = 15 Then
 
    nMin = 0
    Timer1.Enabled = False
 
 
  End If