Public flag1 as boolean
Public flag2 as boolean
public befehl as string
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
flag1=false
befehl=Test
bg1.runworkerasync()
End Sub
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
flag2= true
End Sub
 
Private Sub BG1_DoWork(ByVal sender As System.Object, ByVal e As _
  System.ComponentMode1.DoWorkEventArgs) Handles BG2.DoWork
        While flag1 = False
            If flag2 = True Then
               msgbox(befehl)
            End If
        End While
End Sub