EVITAR O DESLIGAMENTO DO WINDOWS

Private Sub Command1_Click()
            Shell ([Ô]Shutdown -a[Ô])
End Sub

Option Explicit

Public Const GWL_WNDPROC = (-4)
Public Const WM_ENDSESSION = &H16
Public Const WM_QUERYENDSESSION = &H11
Public WndProc As Long

Private Declare Function CallWindowProc Lib [Ô]user32[Ô] Alias [Ô]CallWindowProcA[Ô] (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SetWindowLong Lib [Ô]user32[Ô] Alias [Ô]SetWindowLongA[Ô] (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

[ô] exiting from windows
[ô]-------------------------------------------------------
[ô]EWX_FORCE = 4 Force any applications to quit instead of prompting the user to close them.
[ô]EWX_LOGOFF = 0 Log off the network.
[ô]EWX_POWEROFF = 8 Shut down the system and, if possible, turn the computer off.
[ô]EWX_REBOOT = 2 Perform a full reboot of the system.
[ô]EWX_SHUTDOWN = 1
Public Declare Function ExitWindowsEx Lib [Ô]user32.dll[Ô] (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

[ô]call this from your form
Public Sub Hook(lWnd As Long)
   Dim uProcess As Long
   WndProc = SetWindowLong(lWnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub

Public Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   If uMsg = WM_QUERYENDSESSION Then
      [ô]MsgBox [Ô]hw:[Ô] + CStr(hw) + [Ô] uMsg:[Ô] + CStr(uMsg) + [Ô] wParam:[Ô] + CStr(wParam)
      WindowProc = False [ô]send don[ô]t shut down
      [ô]run code do what you want, then call ExitWindowsEx etc up to you
      Exit Function
   ElseIf uMsg = WM_ENDSESSION Then
      [ô]MsgBox [Ô]hw:[Ô] + CStr(hw) + [Ô] uMsg:[Ô] + CStr(uMsg) + [Ô] wParam:[Ô] + CStr(wParam)
      WindowProc = False
      [ô]run code
      Exit Function
   End If
   
   WindowProc = CallWindowProc(WndProc, hw, uMsg, wParam, lParam)
End Function

Private Sub Form_Load()
   Hook Me.hWnd
  
   [ô]Seus comandos
End Sub