Can hold a key press for 10 seconds ?

[guin.anirban]

Can you check the following and let me know whether it's working or not?

Code:

Print Time

b = DateAdd("s", 10, Time)

Set WshShell = CreateObject("WScript.Shell")

Do While (Time < b)        
        
        WshShell.SendKeys "{ENTER}"

Loop

Print Time

Set WshShell = Nothing