Dim programmConfig As ProcessStartInfo = New ProcessStartInfo
      Dim processe As Process = New Process
      Dim executeFile As String = "C:\Dokumente und" & _
        "Einstellungen\Lars\Desktop\1.Bat"
 
      'Auszuführende Datei
      programmConfig.Arguments = executeFile
 
      'Fenstermodus
      programmConfig.WindowStyle = ProcessWindowStyle.Maximized
 
      Try
         'Batchdatei starten
         processe.Start(programmConfig.Arguments)
      Catch ex As Exception
         MsgBox(ex.Message)
      End Try