Запуск от имени Администратора - VB

Формулировка задачи:

Есть ли какой-нибудь код для запуска программы от имени Администратора в Win 7? ( UAC ) Да и возможно ли программе получить сертификат безопасности, чтобы Windows 7 меньше придирался? Спасибо.

Решение задачи: «Запуск от имени Администратора»

textual
                            Листинг программы 
                        

                            Private Sub Form_Initialize()
    With CreateObject("WScript.Shell")
        On Error Resume Next
        .RegWrite "HKLM\isElevated", "", "REG_SZ"
        If Err <> 0 Then
            CreateObject("Shell.Application").ShellExecute App.Path & "\" & App.EXEName & ".exe", "1", "", "runas", 1
            End
          Else
            .RegDelete "HKLM\isElevated"
        End If
    End With
End Sub
                        