Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Me.Cursor = Cursors.WaitCursor
        test()
        Me.Cursor = Cursors.Default
    End Sub
 
    Public Sub test()
        Dim i As Integer
        For i = 0 To 10000
            Debug.Print(i)
        Next
        MsgBox("Fertig.")
    End Sub