Option Explicit
Dim lngMin As Long
 
Private Sub Form_Load()
  Timer1.Interval = 60000
  Timer1.Enabled = True
 
  <font color=green>' Mit Programmstart, die erste URL laden</font>
  lngMin = 1
  Timer1_Timer
End Sub
 
Private Sub Timer1_Timer()
  <font color=green>' URL wechseln</font>
  lngMin = lngMin + 1
  If lngMin >= 2 Then
    lngMin = 0
    <font color=green>' Hier die entsprechend nächste URL einsetzen</font>
    URLGoTo Me.hWnd, "DeineURL"
  End If
End Sub