Ciao a tutti...
sto cercando di creare un piccolo orologio digitale...

ho creato un timer e unsa semplice label


al evento form_load del form dove vorrei visualizzare questo orologio
ho inserito il seguente codice

VISUALIZZO TRANQUILLAMENTE L'ORA... MA NN SI AGGIORNA IN BASE ALL'INTERVALLO...



GRAZIE E

Public Sub FrmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Interval = 500
Timer1.Enabled = True
Timer1.Start()

Dim ora As Date
ora = CDate(Hour(CDate(TimeOfDay.ToString())) & ":" & Minute(CDate(TimeOfDay.ToString())) & ":" & Second(CDate(TimeOfDay.ToString())))
Lblora.Text = CStr(ora)


End Sub