PARA ABRIR UN PROGRAMA

[CARRY-ON]

como hago para que cuando se jecute un programa que hice habra algun programa ejemplo el paint tengo que saber en que directorio esta ubicado ese programa 

[Red Mx]

eso es facil

Código [Seleccionar] Expandir


Option Explicit

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_NORMAL = 1
Private Sub command3_click()
Dim X
   X = ShellExecute(Me.hwnd, "Open", "C:\WINDOWS\system32\notepad.exe", &O0, &O0, SW_NORMAL)


End Sub
este es el code para que se ejecute el block de notas cuando presionas un boton solo cambia la ruta del block de notas por la que quieres

[CARRY-ON]

gracias

[Robokop]

hay una forma con la que te vas a horrar esas lineas simplemente asi

shell "C:\Ruta\archivo.exe"