Private Sub SetText(ByVal [text] As String)
 
        ' InvokeRequired required compares the thread ID of the
        ' calling thread to the thread ID of the creating thread.
        ' If these threads are different, it returns true.
        If Me.Label1.InvokeRequired Then
            Dim d As New SetTextCallback(AddressOf SetText)
            Me.Invoke(d, New Object() {[text]})
        Else
            Me.Label1.Text = [text]
        End If
    End Sub
 
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button2.Click
        Dim Thread As New Threading.Thread(AddressOf Zählen)
        Thread.Start()
    End Sub
 
Sub Zählen()
        Me.SetText("Zyklus wird gestartet")
        Sleep(100)
        Do
            Me.SetText("Suche nach dateien")
            Sleep(1000)
            'If System.IO.File.Exists("C:\test.txt") Then
            'MessageBox.Show("Datei gefunden")
            'End If
            Me.SetText("warte...")
            Application.DoEvents()
            Sleep(1000)
        Loop
    End Sub