عمل زر خروج عند الضغط عليه

السلام عليكم ورحمة الله وبركاته

تفضل ياأخى العزيز المرفق

انت كنت تستخدم أمر Unload me

وهذا الأمر يقوم بإغلاق الفورم المفتوحة فقط

أما إذا أردت أغلاق البرنامج كله فعليك بأمر END

Example.zip

شكراً جاري التجربة

اعتقد أن السكوت علامة الرضا

أرجو أن يكون هذا هو المطلوب :rolleyes:

اضافة الي ماقيل

هذا الكود المطلوب إن شاء الله

private sub command1_click()

dim sms as integer

sms=msgbox("هل تريد الخروج"+4+VBMASSAGERIEGHT+1048576,"تنبيه")

select  case  sms

case 6

end
case 7

exit sub

end select 

end sub

كل الطرق تؤدى إلى رومـــا ياأخى alameeeer

هذا هو الكود

e=msgbox("هل تريد الخروج من البرنامج ",vbyesno,"رسالة تحذير ")
if e=vbyes then
end
else
exit sub
end if

شكراًُ والله يوفقكم