Write a program to automatically log on to Gmail

Dim flag as Boolean

Private sub form_load ()
On Error resume next
Url = "http://gmail.google.com"
WB. navigate URL
End sub

Private sub commandementclick ()
Dim vdoc, vtag
Dim I as integer

If flag = false then
Msgbox "Please wait... "
Exit sub
End if
Set vdoc = WB. Document
For I = 0 to vdoc. All. Length-1
If ucase (vdoc. All (I). tagname) = "input" then
Set vtag = vdoc. All (I)
If vtag. type = "text" or vtag. type = "password" then
'List1. additem vtag. Name
Select case vtag. Name
Case "email"
Vtag. value = text1.text
Case "passwd"
Vtag. value = text2.text
End select
Elseif vtag. type = "Submit" then
Vtag. Click
End if
End if
Next I
End sub

Private sub command2_click ()
Unload me
End sub

Private sub wb_documentcomplete (byval Pdisp as object, URL as variant)
Flag = true
End sub