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

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

Вопрос простой, как сделать так чтоб программа запускалась от имени администратора? Не могу в папку мои документы и тд попасть Стоит вин7, но желательно универсальный вариант для всех винд )

Не по теме:

Ток вариант правой кнопкой по ярлыку не предлагать

Чёт глюк какой то я, даже из под учётной записи администратора не могу попасть в мои документы....

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

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

                            'Самоэлевация прав программы
 
Private Sub Form_Initialize()
    'Exit Sub 'Временно, пока не скомпилирую проект
    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
                        