2,892 questions
For example :
Private WithEvents Timer1 As New Timer With {.Interval = 1000, .Enabled = True}
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If DateTime.Now.Hour = 15 And DateTime.Now.Minute = 0 And DateTime.Now.Second = 0 Then
MessageBox.Show("Now 3 O'clock", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub