Private Declare Function SHRestartSystemMB Lib "shell32" Alias "#59" (ByVal hOwner As Long, _
                    ByVal sPrompt As String, ByVal uFlags As Long) As Long
Private Sub Form_Load()
    Dim AddTexto As String
    AddText = "": 'If WinNT Then AddText = StrConv(AddText, vbUnicode)
    ExitType = 1  'Texto=Salir
    ExitType = 2  'Texto=Reiniciar
    If SHRestartSystemMB(hWnd, AddTexto, ExitType) = vbYes Then MsgBox "Adios"
End Sub