<code><font color=#000099>Option</font> <font color=#000099>Explicit</font>
<font color=#000099>Private</font> <font color=#000099>Declare</font> <font _
  color=#000099>Function</font> ShellExecute <font color=#000099>Lib</font> _
  "shell32.dll" _
  <font color=#000099>Alias</font> "ShellExecuteA" (<font _
  color=#000099>ByVal</font> hWnd <font color=#000099>As</font> <font _
  color=#000099>Long</font>, _
  <font color=#000099>ByVal</font> lpOperation <font color=#000099>As</font> _
  <font color=#000099>String</font>, <font color=#000099>ByVal</font> lpFile _
  <font color=#000099>As</font> <font color=#000099>String</font>, _
  <font color=#000099>ByVal</font> lpParameters <font color=#000099>As</font> _
  <font color=#000099>String</font>, <font color=#000099>ByVal</font> _
  lpDirectory <font color=#000099>As</font> <font color=#000099>String</font>, _
  <font color=#000099>ByVal</font> nShowCmd <font color=#000099>As</font> <font _
  color=#000099>Long</font>) <font color=#000099>As</font> <font _
  color=#000099>Long</font>
 
<font color=#000099>Private</font> aURLs() <font color=#000099>As</font> <font _
  color=#000099>String</font>
<font color=#000099>Private</font> lURLCount <font color=#000099>As</font> _
<font color=#000099>Long</font>
<font color=#000099>Private</font> lURLCurrent <font color=#000099>As</font> _
<font color=#000099>Long</font>
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> URLGoTo(<font _
  color=#000099>ByVal</font> WWW <font color=#000099>As</font> <font _
  color=#000099>String</font>)
  '
  '*** Internetseite aktivieren ***
  '
  Screen.MousePointer = 11
  <font color=#000099>Call</font> ShellExecute(Me.hWnd, "Open", WWW, "", "", 3)
  Screen.MousePointer = 0
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
  Command1_Click()
  <font color=#000099>Dim</font> F <font color=#000099>As</font> <font _
  color=#000099>Integer</font>
  <font color=#000099>Dim</font> sInhalt <font color=#000099>As</font> <font _
  color=#000099>String</font>
 
  <font color=green>' Textdatei öffnen und Inhalt auslesen</font>
  F = FreeFile
  <font color=#000099>Open</font> "c:url.txt" <font color=#000099>For</font> _
    <font color=#000099>Binary</font> <font color=#000099>As</font> #F
  sInhalt = Space(LOF(F))
  <font color=#000099>Get</font> #F, , sInhalt
  <font color=#000099>Close</font> #F
 
  <font color=green>' Inhalt in ein Array übertragen</font>
  aURLs = Split(sInhalt, vbCrLf)
 
  <font color=green>' Anzahl URLs</font>
  lURLCount = <font color=#000099>UBound</font>(aURLs)
 
  <font color=green>' Startseite aufrufen</font>
  lURLCurrent = <font color=#000099>True</font>
  URLGoTo aURLs(0)
 
  <font color=green>' Timer aktivieren</font>
  Timer1.Interval = 60000
  Timer1.Enabled = <font color=#000099>True</font>
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> Form_Load()
  <font color=green>' Timer zunächst ausschalten</font>
  Timer1.Enabled = <font color=#000099>False</font>
<font color=#000099>End</font> <font color=#000099>Sub</font>
 
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> Timer1_Timer()
  <font color=green>' nächste URL anzeigen</font>
  lURLCurrent = lURLCurrent + 1
  <font color=#000099>If</font> lURLCurrent > lURLCount <font _
    color=#000099>Then</font>
    <font color=green>' von vorne beginnen</font>
    lURLCurrent = 0
  <font color=#000099>End</font> <font color=#000099>If</font>
 
  <font color=green>' Seite anzeigen</font>
  URLGoTo aURLs(lURLCurrent)
<font color=#000099>End</font> <font color=#000099>Sub</font></code>