Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
        Dim i As Integer
        Label1.Text = ""
        For i = 1 To 10
            Label1.Text = "bearbeite " & i & " von 10"
            'MsgBox("Pause")
            mach_was()
            Label1.Text = ""
        Next
        Label1.Text = "Fertig"
    End Sub
 
 
    'Dummy, damit eine gewisse Zeit was getan wird.
    Private Sub mach_was()
        Dim i, z As Integer
        For i = 1 To 100000000
            z = z + 1
        Next
    End Sub