السلام عليكم
قد نريد ان نجعل الرسالة تبقى لمدة معينة ، واذا لم يقوم المستخدم بعمل شيء ، تقوم الرسالة بإختيار "لا" وتغلق نفسها ،
Private Sub cmd_Timer_msgbox_Click()
Dim Msg, Style, Title, Response, PauseTime
Dim Sh_Msgbox As Object
PauseTime = 5 'Seconds
Msg = "هل تريد الاستمرار"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "الشاشة ستغلق تلقائيا بعد 5 ثوان"
Set Sh_Msgbox = CreateObject("WScript.Shell")
Re
