How to display dynamic change of current time on xojo

Hi, i wrote following code and successfully display the current date. but the display just remain static and didn’t change according to system time.
Dim CurrentDate as New Date
Dim curDate as Variant

curDate= CurrentDate
disdatetime.Text = curDate

Use a timer to continually check the new time.

Be sure to read this user guide before starting serious projects so that you know what you’re doing from the start.