[VB6] ShellExecute

[meronet]

Ciao a tutti da internet ho trovato questa funzione
ma non riesco ad utilizzarla....


code-----------------------------------------------------------------

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

Sub OpenFile(hwnd As Long, File As String, Optional Operation As String = "open", Optional Param As String = "", Optional Dir As String = "")

Call ShellExecute(hwnd, Operation, File, Param, Dir, 1)
End Sub

OpenFile Me.hwnd, "C:\Documenti\Pippo.txt"
code-----------------------------------------------------------------

Devo lanciare un file prova.apr con il programma approach.exe
sapete dove sbaglio

openfile approach.exe, "open", pathfile

mi dà errore 424 su approach.exe

se scrivo invece :

openfile me.hwnd, "open" , pathfile

non succede completamente nulla

ringrazio tutti per la partecipazione...

[meronet]

errata corrige
sto sviluppando in VB 6.0