Es una funcion independiente va afuera... no va dentro de nadie
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúDeclare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
Private Sub esperar(espera as long)
Dim inicio as long
Dim fin as long
inicio = GetTickCount()
fin = inicio + espera 'espera es el tiempo del contador en milisec
While fin > GetTickCount
DoEvents
Wend
end sub
Citarjugar haciendo trampas al Candy Crush
[cadena1:1234abdc]
cadena\:[a-zA-Z0-9]*