Dim Fitstatus As String
        Dim oProcess1 As Process
        Dim Arbeitspfad As String
        Dim programmConfig As ProcessStartInfo = New ProcessStartInfo
 
        Arbeitspfad = Arbeitspfadherausfinden()
 
        programmConfig.Arguments = Arbeitspfad & "\mpstart.bat"
        programmConfig.WindowStyle = ProcessWindowStyle.Minimized 'oder .Hidden
 
        If chkVerwenden1.Checked = True Then
            oProcess1 = Process.Start(programmConfig.Arguments, "data\1.ctl")
            oProcess1.WaitForExit()
        End If