'************************************************* *
'* comments: jeje tanta mierda para un simple contador
'* pero es ke estaba aburrido...
'* de algo servira a alguien no? XD
'*
'* email autor:
[email protected]
'*
'* para que funcione se debera de agregar un timer
'* al formulario.... (lo explico tb por aburrimiento...)
'*
'************************************************* *
'variables
Public cnt As Byte
Private Sub Form_Load()
'lee el registro
'osea count = "lo que aya leido"
cnt = "0"
'esto es de vb ... del timer
Timer1.Interval = 400
End Sub
Public Sub cuenta()
cnt = cnt + 1
Print cnt
'esto tb de vb ... no creo q en vbscript te aga falta
'solo es para que no se llene =)
'If InStr(cnt, "0") Then Me.Cls (abria q arreglarlo diria yo..)
End Sub
Private Sub Timer1_Timer()
cuenta [COLOR=teal]'blabla? bla bla... juas
End Sub
:0=