' zunächst die benötigten API-Deklarationen
Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

MsgBox "Starte Programm"
Call ShellExecute(Me.hWnd, "open", "Programm.exe", "", "", 1)
MsgBox "Programm gestartet"

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de