Visual Basic - ABRIR CUALQUIER TIPO DE ARCHIVO DESDE VISUAL BASIC, COMO SI FUERA UN LIND

Hola a todos, tengo un problema y es que necesito abrir desde vb6 archivos de solidworks. He seguido las instrucciones de cosas que he encontrado por internet, y que funcionan para abrir archivos de word, pero en el caso del programa que yo necesito abrir no encuentro la forma.

Muchas gracias de antemano

no probaste con ShellExecute ???

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

Dim ret As Long
ret = ShellExecute(Me.HWnd, "Open", "C:\archivosolidorks.xxx", "", "", 1)

esto abre el archivo con la aplicacion por defecto

Muchas gracias, pero me da un error de compilación que dice que el procedimiento externo no es válido, y selecciona el Me.HWnd. No entiendo el problema porque tengo el solidworks instalado correctamente. Igual es un problema del windows 7, ya que tuve bastantes problemas para instalar ambos programas.

La primera parte tendría que ir en un módulo y la segunda en un command button? gracias

la declaracion va en la parte de arriba del formulario, tambien lo podes poner en un modulo pero debes cambiar el alcance a Public .

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 Sub Form_Load()
Dim ret As Long
ret = ShellExecute(Me.HWnd, "Open", "C:\ArchivoSolidWorks.Extension", "", "", 1)
End Sub

Muchisimas gracias, no sabes el peso que me he quitado de encima

Error
El error dice
Error de copilacion:

Los comentarios solamente pueden aparecer después de End Sub, End Function o End Property osea fin de función o de propiedad. (eso significa)

Y me señala toda la parte de Private Declare Function hasta As Long


Pido respuesta y ayuda para solucionar el error de copilacion