'// Ausfüllen und abschicken des Formulares
'// Wir gehen davon aus, dass das Userfeld user1 und das Passwortfeld pass1 
' heisst.
'// Das webbrowser-ctrl. heisst in dem beispiel hier wbrRouter
 
Private Sub cmdLogin_Click()
  With wbrRouter
    .Document.Forms(0).user1.Value = txtName.Text
    .Document.Forms(0).pass1.Value = txtPass.Text
    .Document.Forms(0).submit.Click
  End With
End Sub