فرضنا عندك ليبل باسم ليبل2
Private Sub Form_Load()
Me.TimerInterval = 1000
Me.Label2.Caption = Time()
End Sub
Private Sub Form_Timer()
Me.Label2.Caption = Time
If Me.Label2.Caption = "02:10:00 م" Then
MsgBox "اكتب ما تريد ان يظهر"
End If
End Sub
وخذ هذا المثال بسيط عملت قبل قليل
يظهر الرسالة كل يوم في نفس الوقت المحدد.rar