Private Sub Cmd_extprog1Click(sender As System.Object, e As System.EventArgs)
			On Error GoTo Fehlerroutine
				Me.TopMost = True
    			p = System.Diagnostics.Process.Start(Txt_extprog1.Text)
    			p.WaitForInputIdle()
    			Stb_alles.Text = p.MainModule.ModuleName & " wurde gestartet."
    			Me.TopMost = False
    		Fehlerroutine:
    			MessageBox.Show ("Programm unter dem Pfad nicht" & _
      "vorhanden","Fehlermeldung",MessageboxButtons.OK,MessageBoxIcon.Error)
		End Sub