[求助]计算机运行速度

Question

我做的文字显示效果在不同的机子上运行速度不一样，有什么办法先得到计算机的运行速度？如果能得到速度，我就可以在显示效果时加上参数，进而得到显示一帧化费的时间。我不想用时间控件或延时的方法来控制时间，那样显示效果不是很好。我想在for循环里控制step的值。

Answer 1

使用timer控件是可以控制时间，但是像文字左移时移动一步就会停顿一会儿，这样就会有一顿一顿的感觉，效果不是很好。我想控制step值。但是各个计算机运行速度不一样，能不能得到cpu速度？

Answer 2

Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As LongGetTickCount用于获取自windows启动以来经历的时间长度（毫秒）    Dim NextTick As Long
    Do Until ExitApp
        Do Until GetTickCount > NextTick
            DoEvents
            '''''''添代码
        Loop: NextTick = GetTickCount + 50
        
    Loop