[mrfenix93]

كود :

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick


       If Now().Hour = "15" Then      
          ("MsgBox("your msg      
       End If      

       If Now().Hour = "17" Then    
            ("MsgBox("your msg    
       End If    

   End Sub

وتجعل .Interval الخاص بالتايمر 

كما تريد 1000 = كل ثانة 

3600= كل دقيقة