Hi,

I have a legacy script that is still running on a SLX 7.5.4 client. The code is using sendkeys to select all the rows in a datagrid (legacy form). The client is running now in a 64bit machine and throws an error saying "Can´t install hook". I'm trying to modify the code and use the next one:

Dim objSh
 

Set objSh = CreateObject("WScript.Shell")

objSh.SendKeys "{HOME}"

For i = 0 to iRows - 1

 objSh.SendKeys "+{DOWN}"

Next

Set objSh = Nothing

But it´s failing when saving saying "Compile: Syntax Error on line 13" that, in my case, is the line with the code 

Set objSh = CreateObject("WScript.Shell")

Any idea how resolve this issue? Thanks.