[modywassemmody]

كود :

  Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Label1.Text = DateString
       If TimeOfDay = "02:00:00 PM" And DateString = "07-03-2020" Then
           MsgBox("الرساله هنا")
       End If

اتفضل ولو في مشكله كلمني