Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
 
        Dim ctrl As Control
        ctrl = Me.ActiveControl
        ctrl.Enabled = False
        ctrl.Enabled = True
 
        status = False
        Do
            Debug.Write("SchleifeA " & i & Chr(13))
            Application.DoEvents()
            i = i + 1
            Threading.Thread.Sleep(100)
        Loop Until status = True
        Debug.Write("SchleifeAENDE " & i & Chr(13))
 
    End Sub