Public Shared Sub StartElevated(ByVal filename As String, ByVal _
  workingDirectory As String, ByVal arguments As String)
   Dim startInfo As New ProcessStartInfo()
   With startInfo
      .UseShellExecute = True
      .Verb = "runas"
      .WorkingDirectory = workingDirectory
      .FileName = filename
      .Arguments = arguments
   End With
 
   Process.Start(startInfo)
End Sub

Ralf