' Controls: 1 * Timer
Option Explicit
 
Private Lst$()
 
Private Sub Form_Load()
 
  Dim Dat1$
 
  Dat1 = "C:\Eine_Textdatei.txt" ' Pfad einer Textdatei hier eintragen
  Open Dat1 For Input As #1
    Lst = Split(Input(LOF(1), #1), vbCrLf)
  Close #1
  Timer1.Interval = 800
  Timer1.Enabled = True
 
End Sub
 
Private Sub Timer1_Timer()
 
  Static Z1&
 
  Me.Caption = Lst(Z1)
  Z1 = (Z1 + 1) Mod (UBound(Lst) + 1)
 
End Sub

Gruss,

Zardoz