>>335

Private Sub Command1_Click()
   WebBrowser1.Navigate "www.google.co.jp"
End Sub

Private Sub Command2_Click()
   WebBrowser1.Document.Forms("f").Item("q").Value = Text1.Text
End Sub

Private Sub Command3_Click()
   WebBrowser1.Document.Forms("f").Submit
End Sub


ヒント:mshtml.IHTMLFormElement