\'ссылка из Label\'разместите на форме Label1Private 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 LongPrivate Sub Form_Load()    Label1.Caption = "http://sql.ru/forum/actualtopics.aspx?bid=22"    Label1.ForeColor = RGB(0, 0, 255)    Label1.FontUnderline = TrueEnd SubPrivate Sub Label1_Click()    ShellExecute Me.hwnd, "open", Label1.Caption, "", "", SW_SHOW Or SW_NORMALEnd Sub