Prueba el siguiente código (al finalizar tu aplicación, se le mostrará al
usuario el dialogo "Apagar el sistema" de Windows)

Option Explicit
Private Declare Function SHShutDownDialog Lib "shell32" Alias "#60" (ByVal
YourGuess As Long) As Long

Private Sub Form_Unload(Cancel As Integer)
   SHShutDownDialog 0
End Sub

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)