Timer

La herramienta de tiempo sirve para indicar los eventos de tiempo en los intervalos que usted establece.
Este control sólo es visible durante el diseño, es invisible durante la corrida.

Private Sub Timer1_Timer()

Label1.Caption = Time

End Sub