وعليكم السلام ورحمة الله وبركاته ..
اعجبتني الفكرة ، و وددت المشاركة بالتالي ..
ما عليك فعله بيدك حتى تنجح الفكرة .. في المديول :-
الخطوة الأولى اذهب للدالة :-
Private Function ExitTimer() As Boolean
وقم بحذف السطر :-
Call DeleteObject(hRgn1)
الخطوة الثانية أيضاً اذهب للدالة :-
Public Function GenerateExit() 'MyForm As Form)
وأضف بعد هذا السطر :-
Do Until ExitTimer()
السطر DoEvents ، لتصبح جملة الحلقة :-
Do Until ExitTimer()
DoEvents
Sleep clngTimerInterval
Loop
وبعد هذه الحلقة مباشرة ، أضف السطر التالي :-
Call DeleteObject(hRgn)
وعليه ، فأن الملف كاملاً بعد هذه التعديلات يصبح :-
db.mdb