[sooriaty03]

تفضل يا غالي

كود :

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim DLGResult As DialogResult = MsgBox("هل تريد بالتأكيد انهاء البرنامج ؟" & vbCrLf & "سوف يتم عمل نسخة احتياطية من قاعدة البيانات" & vbCrLf & "DataCopy عند الاغلاق ووضعها في مسار البرنامج في المجلد", vbMsgBoxRight + vbExclamation + vbYesNo, "تأكيد انهاء البرنامج")
        If DLGResult = vbNo Then
            e.Cancel = True
            Exit Sub
        End If
    End Sub