Private trd As New Threading.Thread(AddressOf Anzeige)
 
    Private Sub frmLauftext_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        trd.Start()
 
    End Sub
 
    Private Sub frmLauftext_Closing(ByVal sender As Object, ByVal e As _
      System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
 
        trd.Abort()
 
    End Sub
 
    Private Sub Anzeige()
 
        Dim i As Integer = 0
 
        Do
            Dim strLauftext As String = "Das ist ein Lauftext"
            strLauftext = Space(i) & strLauftext
            Me.lblLauftext.Text = strLauftext
            System.Threading.Thread.CurrentThread.Sleep(40)
            If i > Me.lblLauftext.Width / 3 Then
                i = 0
            Else
                i += 1
            End If
        Loop
 
 
    End Sub
 
    Private Sub lblLauftext_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles lblLauftext.Click
 
        trd.Start()
 
    End Sub