Public Class Form1
Dim mydate As Date = Now
Dim runtime As Date


Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
Timer1.Start()
Label1.Text = "기준시간 : " & mydate
Label2.Text = "경과시간 : " & Now

If Now >= runtime Then
End
End If
End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
runtime = Date.Now.AddMinutes(1441)
Label3.Text = "실행시간 : " & runtime
End Sub

End Class