RSTimer - Precision Timer 2.1.0.1

[CVMichael]

Latelly I've been working on a project where I needed a precise timer, and I did not have time to write one.

So I looked up on the internet, and I found a free one.

I am so impressed on the precision on this timer, that I thought to post the link here, and maybe it will benefit you also.

This is the link where I got it:
http://www.programmersheaven.com/dow.../download.aspx

I did a small test to see how precise it is, I wrote this code:

Option Explicit

Private MSCount As Long, LCount As Long

Private Sub Form_Load()
    RSTimer1.Interval = 1     ' 1 millisecond
    RSTimer2.Interval = 1000  ' 1 Second
    
    RSTimer1.Enabled = True
    RSTimer2.Enabled = True
End Sub

Private Sub RSTimer1_Timer()
    MSCount = MSCount + 1
End Sub

Private Sub RSTimer2_Timer()
    Debug.Print Timer, MSCount - LCount
    LCount = MSCount
End Sub

This is the result I got:

 77032.41      1000 
 77033.41      1000 
 77034.41      1000 
 77035.41      1000 
 77036.41      1000 
....

As you can see, the the RSTimer2 fired exactly every 1 second, and RSTimer1 fired exactly 1000 times per second !