Public Class Form1
    Private status As Boolean
    Private status2 As Boolean
    Dim i As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        status = False
        Do
            Debug.Write("SchleifeA " & i & Chr(13))
            Application.DoEvents()
            i = i + 1
        Loop Until status = True
        Debug.Write("SchleifeAENDE " & i & Chr(13))
 
    End Sub
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        status = True
        Debug.Write("XXX" & Chr(13))
    End Sub
 
End Class