Private Sub Form_Load()
txtNickname.Text = "Nickname"
txtPasswort = "Passwort"
Command1.Caption = "&Webseite laden"
Command2.Caption = "&Ausfüllen"
End Sub
 
Private Sub Command1_Click()
WebBrowser1.Navigate "http://chat.lycos.de/"
End Sub
 
Private Sub Command2_Click()
WebBrowser1.Document.All(0).login = txtNickname
WebBrowser1.Document.All(1).password = txtPasswort
WebBrowser1.Document.submit
' oder wie muß das aussehen wenn es klappen soll?
End Sub