Hyperlink ve formuláři

Pokud potřebujete na formulář vložit link na WWW, Email, Ghooper atd. je možné to udělat tak, že odkaz se tváří jako klasický HyperLink v HTML. Co k tomu potřebujete?

Stačí vám k tomu jedna API funkce. Jak tedy na to?

Příklad:
Na formulář vložte jeden Label.
Zkopírujte kód uvedený níže a je hotovo.

Option Explicit

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 Sub Form_Load()
  With Label1
    .AutoSize = True
    .ForeColor = RGB(0, 0, 255)
    .Caption = "http://www.rakodev.cz"
    .Font.Bold = True
    .Font.Underline = True
   'V pripade, ze chcete i zmenit na HyperLinku kurzor mysi
   'Odkomentujte tyto radky.
  '.MousePointer = 99
  '.MouseIcon = LoadPicture("C:PicSrcCursorsStatichand.cur")
  End With

End Sub

Private Sub Label1_Click()
   Dim hyperjump
   hyperjump = ShellExecute(0&, vbNullString, _
     "http://www.rakodev.cz", vbNullString, vbNullString, _
     vbNormalFocus)
End Sub