опубликован 12-08-2001 03:09 MSK            

---

Ну, есть 3 способа:
1) (для ещё больших ламеров, чем я, хотя очень понятен весь механизм.)
Установи в компонентах ссылку на Microsoft Internet Controls. На панели появиться элемент в виде земного шара. Помести его на форму. Назови его скажем webBrowser. Присвой атрибуту Visible = False. И в какой-то процедуре вызови его метод Navigate [url], [flags], … например, так: webBrowser.Navigate "www.microsoft.com", 1.
Ослик IE откроет страницу microsoft в новом окне (благодаря флагу = 1).
2) Или более практичный. Установи ссылку на библиотеку Microsoft Internet Controls. И следующий код будет работать аналогично предидущему:
Dim webBrowser As New InternetExplorer
webBrowser.Navigate "www.microsoft.com", 1
3) Я лично пользуюсь всегда этим способом. Здесь уже участвует функция API. Вот процедура вызова которую можно поместить в любом модуле.
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

Public Sub OpenSite(Frm as Form)
ShellExecute Frm.hwnd, "open", "", vbNullString, vbNullString, 1
End Sub
Желаю удачи!!! Если что-то не получиться, напиши (если захочешь).