Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'InitializeComponent() Dim atimer As Timer = New Timer() AddHandler atimer.Elapsed, New ElapsedEventHandler(AddressOf theout) '到达时间的时候执行事件; atimer.Interval = 2000 '设置引发时间的时间间隔 此处设置为1秒(1000毫秒) atimer.AutoReset = True '设置是执行一次(false)还是一直执行(true); atimer.Enabled = True '是否执行System.Timers.Timer.Elapsed事件; End Sub Public Sub theout(ByVal source As Object, ByVal e As System.Timers.ElapsedEventArgs) 'MessageBox.Show(DateTime.Now.ToLongTimeString().ToString()) Dim AutoTask As ArrayList = New ArrayList() AutoTask.Add("8:30:00") AutoTask.Add("9:37:00") AutoTask.Add("10:30:00") AutoTask.Add("2020/4/7 18:22:00") For n As Integer = 0 To 4 - 1 'If DateTime.Now.ToLongTimeString().Equals(AutoTask(n)) Then If DateTime.Now.ToString().Equals(AutoTask(n)) Then MessageBox.Show("现在时间是" & AutoTask(n)) End If Next End Sub