VB Code:
Private Declare Function ShellExecute _
Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
Dim sHtml As String
Dim hFile As Integer
sHtml = "<html><body><form name=""dict"" method=""post"" " & _
"action=""http://www.m-w.com/cgi-bin/thesaurus"">" & _
"<input type=""hidden"" name=""book"" value=""Thesaurus"">" & _
"<input type=""hidden"" name=""va"" value=""" & Text1.Text & """>" & _
"<script language=""javascript"">document.dict.submit();</script>" & _
"</form></body></html>"
hFile = FreeFile
Open "c:\tmp.htm" For Output As #hFile
Print #hFile, sHtml
Close #hFile
ShellExecute Me.hwnd, "Open", "c:\tmp.htm", "", "", vbNormalFocus
End Sub
Best regards