Creas un Form, le agregas un control Label y un control Timer
Propiedades:
<<Form>>
Name: Reloj
<<Label>>
Name: Pantalla
Caption = ""
<<Timer>>
Name: Tiempo
Interval: 1000
Programación:
Private Sub Form_Load()
'***Asigna la hora al texto de la label
Pantalla.Caption = Time
End Sub
Private Sub Tiempo_Timer()
'***Cada segundo asigna la hora al texto de la label
Pantalla.Caption = Time
End Sub
Espero te sirva...
Saludos!!