Private Sub myBGWorker_DoWork(ByVal sender As Object, ByVal e As _
      System.ComponentModel.DoWorkEventArgs) Handles myBGWorker.DoWork
        Dim myLoginResult As loginResult
        myLoginResult = login(myLoginData) 'dieses Ergebnis würde ich gerne an 
        ' RunWorkerCompleted übergeben
    End Sub
 
    Private Sub myBGWorker_RunWorkerCompleted(ByVal sender As Object, ByVal e _
      As System.ComponentModel.RunWorkerCompletedEventArgs) Handles _
      myBGWorker.RunWorkerCompleted
'Hier würde ich gerne auf das übergebene Ergebnis zugreifen
        If myLoginResult = loginResult.loginok Then
            MsgBox("ok")
        ElseIf myLoginResult = loginResult.noresponse Then
            MsgBox("no response")
        ElseIf myLoginResult = loginResult.wronglogin Then
            MsgBox("wrong login")
        Else
            MsgBox("unknown error")
        End If
    End Sub