Public Sub IDLE(ByVal sender As System.Object, ByVal e As System.EventArgs)
'هنا يمكنك وضع شرط المقارنة مقرون بحالة الزر
me.button.enbaled =date1>date2
'في حالة كان التاريخ الاول اكبر من التاريخ الثاني مباشرة الزر يسمح بالضغط عليه و الا فلا يمكنك الضغط على الزر
End Sub
في الفورم لود ضع هدا الكود :
كود :
'قم بالاتصال بالقاعدة و احفض قيمة التاريخ في متغيير من نوع نص
AddHandler Application.Idle, AddressOf IDLE
