Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Interval = 1000
Timer1.Enabled = True
Timer1.Start()

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

End Sub


avevate ragione...
però ho dovuto modificare nel proprietà del design l' enabled...

l'enable = true da codice non mi viene preso...
solo se lo imposto da editor grafico sul true

mi funge tutto...
cmq grazie amici siete grandi