[VB6] Collegamenti ipertestuali in un form

[yyzyyz]

Originariamente inviato da God of Gta
Come inserisco dei collegamenti ipertestuali in una form?

modulo:

Public 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

form:

Public Sub ExecuteLink(ByVal sLinkTo As String)
    
    On Error Resume Next
    
    Dim lRet As Long
    Dim lOldCursor As Long
    
    lOldCursor = Screen.MousePointer
    
    Screen.MousePointer = vbHourglass
    
    lRet = ShellExecute(0, "open", sLinkTo, "", vbNull, SW_SHOWNORMAL)
    '
    If lRet >= 0 And lRet <= 0 Then
        Screen.MousePointer = vbDefault
        MsgBox "error Opening Link to " & sLinkTo & vbCrLf & _
            vbCrLf & Err.LastDllError, , "ExecuteLink"
    End If
    Screen.MousePointer = vbDefault
    '
End Sub
Private Sub Label1_Click()
ExecuteLink ("http://www.html.it")
End Sub