Ejemplo de reloj

Public Sub Form_Open()
  Me.Caption = "RELOJ"
End

Public Sub Timer1_Timer()
  Dim tiempo As Date

  tiempo = Time
  lblreloj.Text = Format$(tiempo, "hh:nn:ss")

End

Public Sub cmdIniciar_Click()
  Timer1.Start
End

Public Sub cmdDetener_Click()
  Timer1.Stop
End