wbrBrowser.Document.Forms(0).Abschicken.Click
 
    'Warten bis Seite geladen wurde, danach Verbunden anzeigen
    bLoad = False
    Do While bLoad = False
        DoEvents
    Loop
 
    lblVerbindung.Caption = "Verbunden"
    lstEreignisse.AddItem "Erfolgreich verbunden", 0

Private Sub wbrBrowser_DocumentComplete(ByVal pDisp As Object, Url As Variant)
    ' Prüfen, ob Seite vollständig geladen wurde
    If (pDisp Is wbrBrowser.Object) Then
        bLoad = True
    End If
End Sub

mfg Suter