Test Foro de elhacker.net SMF 2.1

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

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