كود برمجي للخروج

السلام عليكم

انسخ الكود التالي داخل امر الزر

g=msgbox("Are you sure you want to exit?",vbyesno,"")
if g=vbyes then end

أو يمكنك استخدام هذا الكود فى الحدث QuerUnload الخاص بالفورم لتظهر الرسالة اذا ضغط المستخدم على زر الاغلاق الخاص بالنافذة

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode <> vbFormCode Then
Select Case MsgBox(Title:="اغلاق البرنامج", prompt:="هل تريد إغلاق البرنامج", buttons:=vbQuestion + vbYesNo + vbApplicationModal + vbDefaultButton2)
    Case vbYes
    Unload Me
    End
    Case vbNo
End Select
End If
Cancel = True
End Sub