[ola]

انشئ مفتاح وسمه lastrun من نوع Date في قسم Sittings
   

وضع هذا الكود في بداية التشغيل

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

   'قراءة وقت التشغيل السابق
   If DateDiff(DateInterval.Hour, My.Settings.lastrun, Now) > 10 Then '10 ساعات
       Form2.ShowDialog() 'قتح فورم المدونة
   End If
   My.Settings.lastrun = Now 'احتفظ بوقت التشغيل الحالي

End Sub

---

طلب
هل يمكن أن أحصل هلى نسخة مجانية من كتاب كن إيجابياً تأليف سامي أبو سريع