Ejemplo de temporizador

Private inicio As Date

Public Sub Form_Open()

  Me.Caption = "TEMPORIZADOR"

End

Public Sub Timer1_Timer()

  Dim tiempo As Date

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

End

Public Sub cmdIniciar_Click()

  inicio = Time
  Timer1.Start

End

Public Sub cmdDetener_Click()

  Timer1.Stop

End