Detectar apagado del PC

[Zeroql]

señores como carajos se detecta el apagado del pc
muchas gracias para kien me responda.

[Tughack]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = vbAppWindows Then
        If MsgBox("Shutdown?", vbYesNo, "Confirm") = vbNo Then
            Cancel = 1
        End If
    End If
End Sub

saludos