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
About this page: