FAQ's de VB6

[vbx3m]

Código:

Private Sub Form_Activate()
Webbrowser1.Navigate "http://login.passport.net/uilogin.srf?id=2" 'Este es hotmail debes poner la dirección exacta
End Sub

Private Sub Command1_Click()
Do Until Webbrowser1.ReadyState = READYSTATE_COMPLETE
  DoEvents
Loop
On Error Resume Next
Webbrowser1.Document.Form1.login.Value = "[email protected]"
Webbrowser1.Document.Form1.passwd.Value = "password"
Webbrowser1.Document.Form1.submit
End Sub

Solo debes tener en cuenta el nombre de la caja de texto y el del formulario, en gmail sería :

Código:

Webbrowser1.Document.Forms(0).email.Value = "[email protected]" 'por ejemplo...

Eso lo sabes viendo su codigo... Simple, no?...