Private Ix1&, Z1&
 
Private Sub Form_Load()
  Timer1.Enabled = False
End Sub
 
Private Sub Command1_Click()
  Ix1 = Text1.LBound ' Index Textbox
  Z1 = 1' Zähler
  Call Timer1_Timer
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
 
  Dim Url$
 
  Url = Trim$(Text1(Ix1).Text)
  WebBrowser1.Navigate Url
  Beep ' Kontrolle
  Timer1.Interval = Val(Text3(Ix1).Text)
  Z1 = Z1 + 1
  If Z1 > Val(Text2(Ix1).Text) Then
    Z1 = 1
    Ix1 = Ix1 + 1
    If Ix1 > Text1.UBound Then
      Timer1.Enabled = False
    End If
  End If
 
End Sub

Gruss,

Zardoz