Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://www.xobox.ch/")
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        With WebBrowser1
            .Document.GetElementById("nickname").SetAttribute("Value", _
              "viperbone")
            .Document.GetElementById("password").SetAttribute("Value", _
            "MeinPasswort")
            .Document.Forms(0).InvokeMember("submit")
        End With
    End Sub

fg viperbone