semplice istruzione

[BOYROMA1]

scusate la mia ignoranza


come faccio a non far termminare il programma se clicco su no?



Private Sub Form_Unload(Cancel As Integer)

risposta = MsgBox("sei sicuro di voler uscire?",vbyesno,"Uscire?")

If risposta = vbNo Then

....................




If risposta = vbYes Then

End

End If
End If



End Sub

:master:

[deste]

Private Sub Form_Unload(Cancel As Integer)

risposta = MsgBox("sei sicuro di voler uscire?",vbyesno,"Uscire?")

If risposta = vbNo Then
Form1.show ' ritorna a Form1

ElseIf risposta = vbYes Then
End
End

End Sub

[Teflo]

Devi impostare Cancel = True o Cancel = False se accetti o no la chiusura del form

[BOYROMA1]

me lo termina ugualmente

[BOYROMA1]

grazie con il cancel funge!!!!!:tongue: :gren: :gren: