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

Sub StartAnwendung()

 Dim lngRet As Long

 lngRet = ShellExecute(Me.hwnd,"open","C:\Anwendung.exe",vbNullString,vbNullString,1)

 If lngRet = 0 Then
  MsgBox "Anwendung erfolgreich gestartet."
 ElseIf lngRet = 1 Then
  MsgBox "Fehler beim Starten der Anwendung"
 End If

End Sub