''' <summary>
   ''' Startet die angegebene Datei mit erhöhten Benutzerrechten.
   ''' </summary>
   ''' <param name="filepath">Die zu startende Datei.</param>
   ''' <param name="arguments">Die zu der Datei gehörenden Argumente.</param>
   ''' <remarks></remarks>
   Public Sub StartElevated(ByVal filepath As String, ByVal arguments As String)
      Dim StartInfo As New ProcessStartInfo()
 
      ' Sorgt dafür, dass der Windows-eigene Dialog zum Anfordern der 
      ' Administratorrechte
      ' angezeigt werden soll
      StartInfo.UseShellExecute = True
      StartInfo.Verb = "runas"
 
      ' Legt die Informationen zum Aufruf der Datei selbst fest
      StartInfo.WorkingDirectory = System.IO.Path.GetDirectoryName(filepath)
      StartInfo.FileName = filepath
      StartInfo.Arguments = Arguments
 
      Try
         ' Datei starten
         Process.Start(StartInfo)
 
      Catch ex As System.ComponentModel.Win32Exception
         ' Eventuelle Exception abfangen
         If ex.NativeErrorCode = 1223 Then
            ' Fehlerbehandlung
            Debug.WriteLine("Der Anwender hat den Vorgang abgebrochen.")
         End If
      End Try
   End Sub