Option Explicit
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 Const SW_SHOW = 5
Dim link As String
Private Sub Navigate _
(frm As Form, ByVal NavTo As String)
Dim hBrowse As Long
hBrowse = ShellExecute(frm.hwnd, _
"open", NavTo, "", "", SW_SHOW)
End Sub
Private Sub Command1_Click()
Dim profit As Double ' доход
Navigate Me, link
End Sub
Private Sub Form_Load()
Text1.Text = " http://www.vbfaq.ru/"
End Sub
Private Sub Text1_Change()
link = Text1.Text
End Sub
где найти Библиотеку shell32.dll ??