IBM Lotus Symphony
|
Devuelve el número de tics del sistema que proporciona el sistema operativo. Esta función puede utilizarse para optimizar algunos procesos.
GetSystemTicks()
Largo
Sub EjemploWait
Dim lTick As Long
lTick = GetSystemTicks()
wait 2000
lTick = (GetSystemTicks() - lTick)
MsgBox "" & lTick & " Ticks" ,0,"La pausa duró"
End Sub