Metti tutta la logica nella QueryUnload :
Ciao,codice:Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox("uscire", vbYesNo) = vbYes Then End Else Cancel = 1 End If End Sub![]()
Metti tutta la logica nella QueryUnload :
Ciao,codice:Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox("uscire", vbYesNo) = vbYes Then End Else Cancel = 1 End If End Sub![]()
Ciao, Brainjar