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 Result&
 
Dim StartDatei As String
 
StartDatei = Command()
If Len(StartDatei) Then
StartDatei = App.Path & "\" & StartDatei
 
   Me.Caption = StartDatei & " wird gestartet...."
   Result = ShellExecute(Me.hwnd, "open", StartDatei, "", App.Path, 1)
Else
 
    Me.Caption = "Es wurde keine Startdatei angegeben"
 
End If
 
Unload Me
 
End Sub