Private Sub wb1_ProgressChanged(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles _
  wb1.ProgressChanged
        With Me.ProgressBar1
            If e.MaximumProgress < .Value Then .Value = 0
            If e.MaximumProgress > 0 Then
                .Maximum = e.MaximumProgress
                If e.CurrentProgress > 0 AndAlso e.CurrentProgress <= _
                  e.MaximumProgress Then
                    .Value = e.CurrentProgress
                End If
            End If
        End With
 
        wb1.Document.All("pass").SetAttribute("value", "pw")
        wb1.Document.Forms(0).InvokeMember("submit")
End Sub

Wer nicht fragt bleibt dumm, wer sich sch?mt zu fragen, sch?n dumm