GetSystemTicks Function

Liveras la nombron da sistemaj tiktakoj liveritaj de la sistemo. Oni povas uzi ĉi tiun funkcion por optimumigi specifajn procedurojn.

Sintakso:

GetSystemTicks()

Liverota valoro:

Longa

Error codes:

5 Nevalida procedurvoko

Ekzemplo:

Sub ExampleWait

Dim lTick As Long

    lTick = GetSystemTicks()

    Wait 2000

    lTick = (GetSystemTicks() - lTick)

    MsgBox "" & lTick & " Ticks" ,0,"La paŭzo daŭris"

End Sub