Public Class Form
 
    Private Sub Form_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ProcessStartAskAdmin("cmd.exe", "c:\", "")
    End Sub
 
 
    Sub ProcessStartAskAdmin(ByVal strProcessName As String, ByVal _
      strWorkingDirectory As String, ByVal strArgs As String)
        Dim oStartInfo As New ProcessStartInfo()
 
        oStartInfo.UseShellExecute = True
        oStartInfo.Verb = "runas"
 
        oStartInfo.WorkingDirectory = strWorkingDirectory
        oStartInfo.FileName = strProcessName
        oStartInfo.Arguments = strArgs
 
        Process.Start(oStartInfo)
    End Sub
End Class