Dim ExterneAnwendung As New System.Diagnostics.Process()
ExterneAnwendung.StartInfo.FileName = "notepad.exe"
ExterneAnwendung.Start()
 
ExterneAnwendung.WaitForExit()
 
If ExterneAnwendung.WaitForExit(5000) = True Then
  MessageBox.Show("Die gestartete Anwendung " & _
                  ExterneAnwendung.StartInfo.FileName & _
                  " wurde innerhalb von 5 Sekunden beendet.")
Else
  MessageBox.Show("Die gestartete Anwendung " & _
                  ExterneAnwendung.StartInfo.FileName & _
                  " ist auch nach 5 Sekunden noch aktiv.")
End If