Ciao a tutti, un po' di tempo fa MItaly mi aveva dato questo codice per fare aprire links direttamente col browser predefinito, solo che ultimamente ho qualche problema a farlo funzionare:

Modulo
codice:
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
Public Const SW_NORMAL = 1
Codice Evento
codice:
Public Sub Command1_Click()
    Dim ret As Long
    ret = ShellExecute(Me.hWnd, "open", "http://www.tuosito.com", vbNullString, vbNullString, SW_NORMAL)
    If ret<=32 Then MsgBox "Impossibile aprire la pagina web." & vbCrLf & "Codice di errore di ShellExecute: " & LTrim(CStr(ret))+".",vbCritical,"Errore"
End Sub
In pratica quando eseguo da Visual basic, facendo scattare l'evento mi da l'errore del ret minore/uguale a 32 ma apre lo stesso il browser con la pagina, mentre invece se compilo l'eseguibile non da nessun errore ed apre normalmente la pagina. E' giusto che dia l'errore in VB6? Se no, come risolvo? Grazie