InstantForum.NET v4.1.4Релибhttp://relib.com/forums/robot@relib.comSat, 22 Nov 2008 20:48:52 GMT20http://relib.com/forums/Topic51284-2-1.aspxPublic 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 LongPublic Const SW_SHOWNORMAL = 1Public Sub gotoweb(URL As String)Dim Success As LongSuccess = ShellExecute(0&, vbNullString, URL, vbNullString, "C:\", SW_SHOWNORMAL)End SubPublic Sub sendemail(Email As String)Dim Success As LongSuccess = ShellExecute(0&, vbNullString, "mailto:" & Email, vbNullString, "C:\", SW_SHOWNORMAL)End SubPrivate Sub LblURL_Click()gotoweb("http://www.your-homepage-here.com")End SubPrivate Sub LblEmail_Click()sendemail("You_are@home.com")End SubSun, 30 Jul 2000 03:43:00 GMTasdhttp://relib.com/forums/Topic51284-2-1.aspxHi !Как вставить гиперссылку в программу (на языка VB) ?Заранее благодаренSat, 29 Jul 2000 17:11:00 GMTsealexey