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