Io ho provato a fare così ho aggiunrto questo--------->!!!

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

Nel Form_Load()
Label1.caption=Format(Now,"hh:mm:ss")
Timer1.Intrval=1 ----->
End Sub