Metti un timer e una label:

supponiamo label1

il timer lo metti con interval 1000

evento timer del timer
codice:
Private Sub Timer1_Timer()
  label1.caption=format(hour(now),"00") & ":" & format(minute(now),"00") & ":" & format(second(now),"00")
End Sub