How to make clickable hyprlink ?

[Jenova]

Here try this

'// You need 1 label
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 Form_Load()
    Label1.Caption = "Click Here"
    Label1.ForeColor = vbBlue
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.FontUnderline = False
End Sub
 
Private Sub Label1_Click()
    ShellExecute Me.hwnd, "open", "http://www.google.com", vbNullString, vbNullString, vbNormal
End Sub
 
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.FontUnderline = True
End Sub

Hope this helps

Jenova