RE:creacion de un cronometro
En un formulario incorpora una etiqueta y un control timer.
Añade este código al control Timer.
!Ah¡ el interval del timer a 1000 para que actúe cada segundo.
Espero que te sirva de algo.
Un saludo.
Private Sub Reloj_Timer()
Etiqueta.Caption = Format(Now, "hh:mm:ss")
´Reloj desde arranque
segun = segun + 1
If segun = 60 Then
minu = minu + 1
segun = 0
End If
If minu = 60 Then
hor = hor + 1
minu = 0
End If
resumen = Format(hor, "00") & ":" & Format(minu, "00") & ":" & Format(segun, "00")
Etiqueta1.Caption = resumen
End Sub