Mira estuve metiendole COCO a lo que me dijistes y hasta cierto punto entiendo, lo que no tengo bien claro es lo del ir aumentando la VARIABLE + 1.. Yo tengo el siguiente codigo que me hace un Contador.....Tienes que tener un label1....Aqui me empieza el conteo del tiempo...
Private Sub Form_Load()
Label1.Caption = "00:00:00"
Iniciar = Timer
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim dif As Single
Dim horas As Integer
Dim minutos As Integer
Dim segundos As Integer
Dim centesimas As Integer
If Timer > Iniciar Then
dif = Timer - Iniciar
Else
dif = 86400 - Iniciar + Timer
End If
centesimas = (dif - Fix(dif)) * 100
horas = Fix(dif) \ 3600
minutos = (Fix(dif) Mod 3600) \ 60
segundos = (Fix(dif) Mod 60)
Label1.Caption = Format(horas, "00") & ":" & Format(minutos, "00") & ":" & Format(segundos, "00")
DoEvents
End Sub
Tambien me da este ERROR
Public Const KEY_ALL_ACCESS = ((
STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))
Explicame si puedes... Thx