getting the time between the time it takes to click one button ************(resolved)

[king_scott_2]

how do you go about getting the time (in milliseconds) between the time it takes to click one button and then the next?

I have already tried to use a timer and do this code

sub timer_timer()
a = a + 1 'a being the integer
end sub

When i return what a = it gives me a number like 400 even though it took me 5 seconds to click the button

your help would be much appreasiated Thanks

[crptcblade]

Option Explicit
 
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Private lTime As Long
 
Private Sub Command1_Click()
    lTime = GetTickCount
End Sub
 
Private Sub Command2_Click()
    MsgBox (GetTickCount - lTime) & " milliseconds"
End Sub

[Merri]

Use GetTickCount. Here's an example, make a new project, insert two command buttons and add the following code:

Option Explicit
 
Dim Button1 As Long, Button2 As Long
 
Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
 
Private Sub Command1_Click()
    Button1 = GetTickCount
End Sub
 
Private Sub Command2_Click()
    Button2 = GetTickCount
    Caption = "Took " & Button2 - Button1 " milliseconds"
End Sub

Hope this does the trick


Edit Damn I'm slow

[king_scott_2]

thanks all