Option Explicit

Private sFormularCaption As String

Private Declare Function LockWindowUpdate Lib "User32" (ByVal _
      hWndLock As Long) As Long

Private Sub Form_Load()
  Me.Caption = "Dies ist eine Laufschrift-Demo" & _
        String$(10, " ")
  sFormularCaption = Me.Caption
End Sub

Private Sub Command1_Click(Index As Integer)
  Select Case Index
    Case 1, 2
      Command1(2).Visible = Command1(2).Visible Xor -1
      Command1(1).Visible = Command1(1).Visible Xor -1
      Timer1.Enabled = Timer1.Enabled Xor -1
    Case Else
      Unload Me
      End
  End Select
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