Сообщество Чайников

Вопрос

Как на форме поместить ссылку на E-mail или страничку?

Ответ

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 Const SW_SHOW = 5

'E-mail

Call ShellExecute(0&, "Open", "mailto:" + softsware@narod.ru + _
   "?Subject=" + "Re: VitalTime", "", "", 1)

'web

Call Navigate(Me, "http://softsware.narod.ru/")

Сергей