Private Sub ExecuteLink(ByVal sLinkTo As String)
    On Error Resume Next
    
    Dim lRet As Long
    Dim lOldCursor As Long
    
    lOldCursor = Screen.MousePointer
    
    Screen.MousePointer =  11 
    lRet = ShellExecute( 0 , "open", sLinkTo, "",  1 ,  1 )
    
    If lRet >=  0  And lRet <=  0  Then
        Screen.MousePointer =  0 
        MsgBox "Error Opening Link to " & sLinkTo & vbCrLf & vbCrLf & ERR.LastDllError, , "frmAbout::ExecuteLink"
    End If
    Screen.MousePointer =  0 
End Sub

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