'Starte beide Backgroundworker
        Do
            'do nothing
        Loop Until modul_bool_BGW1Ready And modul_bool_BGW2Ready
        'Arbeite mit den Ergebnissen

    Private Sub BGW1_RunWorkerCompleted(ByVal sender As System.Object, ByVal e _
      As System.ComponentModel.RunWorkerCompletedEventArgs) Handles _
      BGW1.RunWorkerCompleted
        If e.Cancelled = True Then
            'Setze "Canceled" info
        ElseIf e.Error IsNot Nothing Then
            Label1.Text = "Error: " & e.Error.Message
        Else
            modul_bool_BGW1Ready = True
        End If
    End Sub