Protected Sub StartCommand(ByVal command As Command.CommandState)
        Me.Enabled = False
        StateTimer.Stop()
        ErrorTimer.Stop()
        ActState = CommandFactory.GetCommand(command, document)
        StateTimer.Interval = ActState.TimeOut
        ErrorTimer.Interval = 10000
        document.Open()
        PrintState(ActState, document)
        StateTimer.Start()
        ErrorTimer.Start()
    End Sub
 
......
 
    Private Sub ErrorTimer_Tick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles ErrorTimer.Tick
        ErrorTimer.Stop()
        If MsgBox("Abbrechen?", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
            Me.Enabled = true
            StateTimer.Stop()
        Else
            ErrorTimer.Start()
        End If
    End Sub

EDrawings.AxEModelViewControl1.OpenDoc(...)
Do Until EDrawings.Geladen = True
            If EDrawings.geladenFehler = True Then
                Me.Cursor = Cursors.Default
                Exit Sub
            End If
 
            Application.DoEvents() 
            System.Threading.Thread.Sleep(100)
Loop

EDrawings.AxEModelViewControl1.OpenDoc(...)
Do Until EDrawings.Geladen = True
            Try
                LoopAbbruchZeit = 100
                BGWLoopabbruch.RunWorkerAsync()
            Catch ex As Exception
            End Try
 
            If LoopAbbruch = True Then
                LoopAbbruch = False
                Exit Sub
            End If
 
            If EDrawings.geladenFehler = True Then
                Me.Cursor = Cursors.Default
                Exit Sub
            End If
 
            Application.DoEvents() 
            System.Threading.Thread.Sleep(100)
Loop

       Dim StartLoop As Date = System.DateTime.Now
        Do
            If CInt(System.DateTime.Now.Subtract(StartLoop).TotalMilliseconds) _
              > LoopAbbruchZeit Then
                If Not LoopabbruchDialog.Visible = True Then
                    LoopabbruchDialog.Show(Me)
                End If
            End If
 
            If BGWLoopabbruch.CancellationPending = True Then
                Exit Sub
            End If
            If LoopAbbruch = True Then
                Exit Sub
            End If
            System.Threading.Thread.Sleep(200)
        Loop

        EDrawings.AxEModelViewControl1.OpenDoc(...)
 
        TimerLoopAbbruch.Interval = 10000
        TimerLoopAbbruch.Start()
        Do Until EDrawings.Geladen = True
            If LoopAbbruch = True Then
                LoopAbbruch = False
                Exit Sub
            End If
 
            If EDrawings.geladenFehler = True Then
                Me.Cursor = Cursors.Default
                Exit Sub
            End If
 
            Application.DoEvents() 
            System.Threading.Thread.Sleep(100)
        Loop
        TimerLoopAbbruchFertig()

    Private Sub TimerLoopAbbruch_Tick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles TimerLoopAbbruch.Tick
        If Not LoopabbruchDialog.Visible = True Then
            LoopabbruchDialog.Show(Me)
        End If
    End Sub
    Public Sub TimerLoopAbbruchFertig()
        TimerLoopAbbruch.Stop()
        If LoopabbruchDialog.Visible = True Then
            LoopabbruchDialog.Close()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        'Dokument öffnen
        Timer1.Interval = 100
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        If Var1 = True Then 'Dokument geöffnet
            Timer1.Stop()
            'Drucken...
            Timer2.Interval = 100
            Timer2.Start()
        End If
    End Sub
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer2.Tick
        If Var2 = True Then
            Timer2.Stop()
            'Dokuent schließen...
            Timer3.Interval = 100
            Timer3.Start()
        End If
    End Sub
 
    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer3.Tick
        If Var3 = True Then
            Timer3.Stop()
            MsgBox("Operation abgeschlossen.")
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        'Dokument öffnen
        Timer1.Interval = 100
        Timer1.Start()
 
        Timer4.Interval = 10000
        Timer4.Start()
    End Sub
 
    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer4.Tick
        If MsgBox("Abbrechen?", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
            Timer1.Stop()
            Timer2.Stop()
            Timer3.Stop()
            Timer4.Stop()
        End If
    End Sub