Dim myP As System.Diagnostics.Process = New System.Diagnostics.Process() 'Dichiari l'oggetto
        myP.StartInfo.Verb = "RUNASADMIN"
        myP.StartInfo.UseShellExecute = False
        myP.StartInfo.CreateNoWindow = True
        myP.StartInfo.RedirectStandardOutput = True
        myP.StartInfo.FileName = "C:\WINDOWS\system32\calc.exe" 'imposti il percorso del file da eseguire
        myP.StartInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Normal 'imposti il tipo di visualizzazione
        myP.Start() 'avvii il processo