Private Sub Timer1_Timer()
Label1.caption=Format(Now,"hh:mm:ss")
End Sub

Nel Form_Load()
Label1.caption=Format(Now,"hh:mm:ss")
End Sub

Nel form load ho messo questo la label con i'ora si vede ma NON
VA AVANTI.