Shoutbox

this code works better:

code:

---

Private Sub Command1_Click()
Do Until wb.ReadyState = READYSTATE_COMPLETE


    DoEvents
    Loop
    On Error Resume Next
    wb.Document.Forms(0).email.Value = "username"
    wb.Document.Forms(0).passwd.Value = "password"
    wb.Document.Forms(0).submit
End Sub

Private Sub Form_Load()
wb.Navigate "https://www.google.com/accounts/ServiceLogin?
service=mail&passive=true&continue=http%3A%2F%2Fgmail.google.com
%2Fgmail%3Fui%3Dhtml%26zy%3Dl"
End Sub

---

Does any one know how to click on links?