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
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)