سؤال ( msgbox ) ممكن تدخلو وتجاوبو ؟؟!!

[o0o rami o0o]

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

لو سمحتوا يا إخوان ..

أريد طلب :/

هذا كود كتبته :: أكيد تعرفون معناه !!

http://www.monsterup.com/upload/1227958509.jpg (http://www.monsterup.com)

هذا الكود فايدته = إذا ضغط على الزر :/
تجي هذه الرسالة :/

http://www.monsterup.com/upload/1227958520.jpg (http://www.monsterup.com)


طيب

طلبي هو :/

كيف أحط أمر إذا ضغط على ( موافق ) يصير هذا الأمر
وأمر ثاني إذا ضغط على ( إلغاء الأمر ) ؟؟؟؟!!!!

وشكرا

[lebhero]

وعليكم السلام

private sub button1_Click()
Dim intResponse As Integer

intResponse = MsgBox("Do you Really want to do that?",vbOkCancel + vbQuestion + vbMsgBoxRight, "Delete")


If intResponse = vbOk Then

' اذا ضغط إذا ضغط على ( موافق ) يصير هذا الأمر
else

' اذا ضغط إذا ضغط على ( إلغاء الأمر) يصير هذا الأمر

End If

end sub

[o0o rami o0o]

مشكور والله وا قصرت