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