Hur gör man när man vill att en Label med en URL skall fungera som en länk när man klickar på den? Alltså skall användarens browser öppnas och peka på länken.

Har kollat i Resource Library men förstår inget av exemplet som står där. Behöver det vara så krångligt?

Om jag har förstått rätt!

I Declaration:
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 Const SW_SHOWNORMAL = 1

Private Sub Label1_Click()
Dim txtURL
txtURL = "http://www.pellesoft.nu"
Call ShellExecute(hwnd, "Open", txtURL, "", "", 1)

End Sub
'Hittade exemplet på sökning här i forumet.
'nedan är ett förslag på hur man kan göra för att märka att det händer något med Label1.
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlue
Label1.FontUnderline = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlack
Label1.FontUnderline = False
End Sub
SJ

Tack så mycket.
Vilket underbart forum. Så levande det kan bli.