Module
Contents
Index 🔎︎

# GetSystemTicks Function

བཀོལ་སྤྱོད་མ་ལག་གིས་མཁོ་འདོན་བྱས་པའི་མ་ལག་བྱ་འགུལ་གྱི་ཡི་གེའི་ཁ་གྲངས་སུ་ཕྱིར་ལོག་པ། རྟེན་གྲངས་འདི་ཉིད་འཕལ་རིམ་འགའ་ལེགས་འགྱུར་བྱས་པར་སྤྱོད་ཆོག

## བརྡ་འཕྲོད་

    GetSystemTicks()

## ཕྱིར་ལོག་ཐང་

ཧྲིལ་གྲངས་རིང་པོ་

## Error codes:

5 ནུས་མེད་ཀྱི་བརྒྱུད་རིམ་འཁོར་སྤྱོད་

## དཔེ་གཞི་

    Sub ExampleWait

    Dim lTick As Long

        lTick = GetSystemTicks()

        Wait 2000

        lTick = (GetSystemTicks() - lTick)

        MsgBox "" & lTick & " Ticks" ,0,"The pause lasted"

    End Sub