Private Sub Form_Unload(Cancel As Integer)



    If MsgBox("Kapatayım mı?", vbYesNo + vbQuestion, "AccessTr.Net") = vbNo Then

        Cancel = True

        Exit Sub

    End If

    

End Sub