Ofimática - RELOJ EN FORMULARIO VBA

HOLA GENTE QUERIDA...

NECESITO POR FAVOR MONTAR EN UN USERFORM UN LABEL QUE ME MUESTRE SIEMPRE LA HORA ACTUAL... O SEA UN RELOJ

ALGUIEN SABE COMO?

GRACIAS

A ver si este ejemplo te sirve....

Option Explicit
Dim bState As Boolean

Private Sub UserForm_Click()
Dim sStart As Single
bState = True

Do While bState
sStart = Timer
Do While (bState And Timer < sStart + 1)
Label1.Caption = Time
DoEvents
Loop
DoEvents
Loop
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
bState = False
End Sub

Saludos desde Baires, JuanC