[Fantastico]

فقط أضف الكود التالي الى مشروعك
عند بداية تشغيل البرنامج (Load) يقوم بحساب الزمن المتبقي عن الموعد (الرابعة عصرا مثلا) ويضعه في (Timer1.Interval)
يمكنك ان تضع نفس الكود في حدث (Tick) للمؤقت لكي يعيد حساب الفترة المقبلة حتىى تتكرر العملية في كل رابعة عصرا
يمكنك تغيير الموعد الى اي وقت من اليوم تريده من خلال المتغير (TimeToClick) الواضح في الكود

PHP كود :

   Dim TimeToClick As New TimeSpan(16, 0, 0) 'الرابعة عصرا
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
          
        Dim ts As Long = (TimeToClick.Ticks - Now.TimeOfDay.Ticks)
        If ts < 0 Then ts = ts + TimeSpan.TicksPerDay

        Timer1.Interval = ts / 10000
        Timer1.Start()
    End Sub
     


سامحنا ان وجدت أخطاء