vbnet 間隔時間

----------

Public Class Form1

    Private ann_reload_mm As Integer = 1
    Private ann_loaddate As DateTime = Now

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = Now.ToString("yyyy/MM/dd HH:mm:ss")
        Label2.Text = ann_loaddate.AddMinutes(ann_reload_mm).ToString("yyyy/MM/dd HH:mm:ss")


        If ann_loaddate.AddMinutes(ann_reload_mm) = Now Then
            ann_loaddate = Now
            Label3.Text = "時間到"

        End If
    End Sub
End Class