VB Quicktakes - Creating HyperLinks

This example shows you how to create a hyperlink with a label and some API code

Option Explicit

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) As Long



Private Sub lblTest_Click()
    
    Dim retval As Long
    retval = ShellExecute(0, "open", "http://www.mredkj.com", 0, 0, 1)

End Sub