Dim ProcessProperties As New ProcessStartInfo
            ProcessProperties.FileName = "WindowsApplication1.exe"
            ProcessProperties.WorkingDirectory = _
              "F:\WindowsApplication1\bin\Debug\"
            ProcessProperties.UseShellExecute = True
            ProcessProperties.Verb = "runas"
 
 
            Dim oProcess As Process = Process.Start(ProcessProperties)
 
 
            If oProcess.WaitForExit(10000) = False Then
                 oProcess.Kill()
                MsgBox("Anwendung musste durch das eigene Programm beendet" & _
                  "werden!")
            Else
                MsgBox("Anwendung wurde beendet")
            End If

Hänk

(Wer früh aufsteht hat mehr vom Tag)