Public Function ProzessStarten(ByVal Programm As String, ByVal Parameter As _
  String) As Integer
        Dim Prozess As New Process
        Dim ProzessInfo As New ProcessStartInfo(Programm, Parameter)
        Dim Timeout As Double
 
        ProzessInfo.CreateNoWindow = True
        ProzessInfo.WindowStyle = ProcessWindowStyle.Hidden
        ProzessInfo.UseShellExecute = False
        Prozess.StartInfo = ProzessInfo
        Prozess.Start()
        Do While Not (Prozess.HasExited = True) And (Timeout < 15)
            System.Threading.Thread.Sleep(250)
            Timeout = Timeout + 0.25
        Loop
        If Prozess.HasExited = False Then Prozess.Kill()
        ProzessStarten = Prozess.ExitCode
    End Function

Jedes Programm,
in das sich ein Fehler einschleichen kann,wird auch einen enthalten.