Capturing time from execute query to display data in milliseconds

[WILLIAMSRENAULT]

Hi,

Would anyone be able to help with this?

Is there a way to record how long it takes for the data to be displayed on screen, from the command is sent to get the data, in milliseconds?

Heres part of my code:

Dim Sys as Object
Dim Sess as Object
Dim WMS as Object
Dim RepDate
Dim Labelas as string

Set Sys = CreateObject("EXTRA.System")
Set Sess = Sys.ActiveSession
Set WMS = Sess.Screen

' Sets RepDate to now
RepDate = format(now(),"dd-mmm-yy")

' Checks screen is at the start and the first menu is displayed
Do Until WMS.WaitForString ("Goods Receipt")

WMS.Sendkeys("<esc><esc><esc><esc><return>")

Loop

' Enters keys for Personnel Work Progress Enquiry screen
WMS.Sendkeys("eew")

' Enters query and display on screen
WMS.Sendkeys("<F7>")
WMS.Sendkeys(repdate)
WMS.Sendkeys("<tab><tab><tab><tab>")
WMS.Sendkeys("%SH%")
WMS.Sendkeys("<F8>")

' capture time taken to display here

Do Until WMS.WaitForString ("FRM-40355:",23,1)
Do Events
loop

So I'm looking for the time taken from when F8 is sent to execute the query and then return data to screen, when text FRM-40355: will be displayed on Row 23

Many thanks in advance for your help
Darron