Public Function ExternStart(ByVal xprog As String)
        Dim myProcess As New Process
        Try
            myProcess.StartInfo.FileName = xprog
            myProcess.StartInfo.CreateNoWindow = True
            myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal
            myProcess.Start()
            Application.DoEvents()
            Do Until myProcess.HasExited = True
                Application.DoEvents()
            Loop
        Catch ex As Exception
            MessageBox.Show("Programm nicht gefunden!", "allgemein  Externe       
                                                 Programme starten"," & _
                                                   "MessageBoxButtons.OK, 
                                                  MessageBoxIcon.Information)
         End Try
    End Function