DIM Inicio, fin AS Variant
DIM horaini, minuini, seguini, horafin, minufin, segufin AS Integer
Numero = CInt(Mid(LAST.text, 3) - 1) 'coger los caracteres a partir de la posicion 2 y convertirlos a integer
IF LAST.BackGround = &FF0000
LAST.BackGround = &5FFF5F
horafin = Time(Hour(Now))
minufin = Date(Minute(Date))
segufin = Time(Second(Now))
Etiquetas[Numero].Text = horafin & ":" & minufin & ":" & segufin
fin = Etiquetas[Numero].Text
ELSE
LAST.BackGround = &FF0000
horaini = Time(Hour(Now))
minuini = Time(Minute(Now))
seguini = Time(Second(Now))
Etiquetas[Numero].text = horaini & ":" & minuini & ":" & seguini
Inicio = Etiquetas[Numero].Text
ENDIF
al pulsar el boton oportuno Etiquetas[Numero].text deberia de tomar la "HORA INICIAL", al volver a pulsarlo deberia de poner la "HORA FINAL", y quierosaber el intervalo entre las dos horas