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
 
        Do
            Debug.Write("SchleifeA " & i & Chr(13))
            Application.DoEvents()
            i = i + 1
        Loop Until Status = True
 
    End Sub
 
 
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
 
        Do
            Debug.Write("SchleifeB " & i & Chr(13))
            Application.DoEvents()
            i = i + 1
        Loop Until status = True
    End Sub
 
 
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        status = True
        Debug.Write("XXX" & Chr(13))
    End Sub
 
End Class