Private Sub Form_Load()
Me.Caption = "Auswertetool" & String$(10, " ")  ' Laufschrift Überschrift
  sFormularCaption = Me.Caption
End Sub
 
 
 
Private Sub Timer1_Timer()
  Static Zaehler As Long
 
  Zaehler = (Zaehler + 1) Mod Len(sFormularCaption)
  LockWindowUpdate Me.hwnd
  Me.Caption = Left(sFormularCaption, Zaehler)
  LockWindowUpdate 0
End Sub