Создание ссылок в vb6

[Pavel_2100]

Подскажите, как в vb6 сделать ссылку на сайт, чтобы при нажатии открывался сайт? Если можно, програмный код

[Хакер]

В поиск по ShellExecute.

[aiswork]

Это подойдет?

Код: Выделить всё

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)

Private Declare Function GetDesktopWindow Lib "user32" _
() As Long

Const SW_SHOWNORMAL = 1

'В модуль формы

Private Sub Label1_Click()
  'при клике на Label происходит вызов функции и передаются _
     следующие параметры: _
    1.идентификатор десктопа (где запускать файл) _
    2.команда "Open" - т.к. можно вставить и "Print" (что делать с ним) _
    3.путь к файлу - надпиь Label (URL адрес) _
    4.пропущенный параметр, т.к. файл этот - документ, а не исполняемый _
    5.директория, используемая в случае надобности по умолчанию (куда складывать) _
    6.константа, означающая запуск в нормальном режиме (как запускать) 
Call ShellExecute(GetDesktopWindow, "Open", _
    Label1.Caption, "", "c:\", SW_SHOWNORMAL)
End Sub