How to Make a Timer with Milliseconds

Question

I am trying to create a timer that tracks milliseconds. The reason being is that I want to track key strokes, store them, and later repeat them. In order to repeat each key's input interval accurately, I need to
track amount of time each key is pressed between each other and to do so I plan to record by the millisecond. I won't be storing each millisecond but rather I want to make sure that the Controls.TextType and Timer event can be processed at any moment. From
my observation, I can't go any lower than one second because, realistically, multiple keys can be pressed in less than a second and also I can't recreate one second (accurately) out of milliseconds unless its ticking by one millisecond. As far as I know, I
can use the Timer object but I encountered a limitation. The Timer.Interval only goes as low as 10 milliseconds. I looked at other options and considered using Clock.Millsecond and subtracting two versions of Clock.Millisecond at a millisecond difference but
did not manage to make a working sample.
I also tried using using Program.Delay() but I don't understand how this doesn't measure one millisecond:
gw = 600
gh = 300
GraphicsWindow.Width = gw
GraphicsWindow.Height = gh
GraphicsWindow.KeyDown = onKeyDown
GraphicsWindow.KeyUp = onKeyUp
GraphicsWindow.Left = 0
GraphicsWindow.Top = (Desktop.Height - gh)*0.20
TextWindow.Left = (Desktop.Width - gw)*0.90
TextWindow.Top = (Desktop.Height - gh)*0.20
txtSize = 20
tx = (gw - txtSize)*0.20
ty = (gh - txtSize)*0.50
GraphicsWindow.FontSize = txtSize
GraphicsWindow.DrawText(tx,ty,"CLICK GRAPHICS WINDOW SCREEN THEN")
GraphicsWindow.DrawText(tx,ty+txtSize,"PRESS ENTER TO USE KEY EVENT")
milliSec = 0
sec = 0
print = "True"
While "True"
milliSec = milliSec + 1
If (milliSec > 999) Then
milliSec = 0
sec = sec + 1
TextWindow.WriteLine(sec)
EndIf
If (keyDown["Return"] And print = "True") Then
TextWindow.WriteLine("You pressed at " + sec + ":" + milliSec)
print = "False"
ElseIf (keyDown["Return"] <> "True") Then
print = "True"
EndIf
Program.Delay(1)
EndWhile
Sub onKeyDown
lastKey = GraphicsWindow.LastKey
keyDown[lastKey] = "True"
EndSub
Sub onKeyUp
lastKey = GraphicsWindow.LastKey
keyDown[lastKey] = "False"
EndSub
Why do I suspect my timer isn't accurate? For one, when I count by one (like so one crocodile, two crocodile, etc) it doesn't match up. Also, I've compared it with many online stop watches and it's apparent they run seconds ahead.
My three options:
1) use the Timer object
2) use Clock.Millisecond
3) use Program.Delay
After constant failure and researching, I forgot to consider what is the default rate of a small basic program when its running as a whole and each line. Is it possible to go lower than it? Again the current goal
of my project at the moment is tracking a key stroke and returning the time the user inputted. That's why, I want my timer to move
by one millisecond so I am able to process every action. Any explanation, samples, or guidance would be helpful. Thank you.

Answer 1

Program Code: FRT619
Removing the comments tags (from the last three lines at the bottom of the mainTimer subroutine) will show that I can store time values and rely on the fact that they can be compared. It's no where near completion
but, hypothetically, this will allow me to achieve my main goal: storing time intervals from any key and repeat them at the user's command accurately when the timer restarts. I'm sure I've compromised the timer's accuracy though. What are your thoughts? Do
you see a better way to approach this problem? Also, I wasn't able to display the milliseconds but realized that it may not be necessary since I only need it to process events and store variable accurately. Not to display the precise time. Although, I am open
to any solutions to this minor problem. One more note: I nested the main loop with a small loop that changes run to true when milliseconds is zero. This is used to assure that milliSec has an initial value of zero, which is crucial to store time accurately.
Bug: Timer stops if user holds enter key. Solution: remove program delay in sub routine control, however, user can't hold key and record same key multiple times.
New Solution to bug: implement button and textbox events (allows user input while recording time through PC's clock--in milliseconds).
On a side note, the clock object communicates with the PC's clock, which would mean it's asynchronous from the program and isn't affected by program delay. However, if the PC's clock is ticking by the millisecond(s) and the program stores the time from the
PC's clock and display it with a delay of 1000 milliseconds. The clock object may not be affect but displaying the time will be?