[VB6] Intercettare riavvio del PC

[kentaromiura]

ho risolto, per chi servisse

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

  If UnloadMode = 2 Then MsgBox("Chiusura windows")
End Sub

il problema era da un altra parte del codice