Si por ejemplo queres abrir el Nero para grabar CDs :
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
Const SW_SHOWNORMAL = 1
Private Sub CmdLLamadaNero_Click()
Dim nombrePrograma As String
Dim rutaArchivo As String
nombrePrograma = "Nero.exe"
rutaArchivo = "C:\Archivos de ProgramaProgramas\Ahead\Nero"
ShellExecute Me.hwnd, vbNullString, "nombrePrograma", vbNullString, "rutaArchivo", SW_SHOWNORMAL
Espero que te guste, si necesitas mas escribime a
[email protected]