vb6 sendkeys error(Windows 7)

in windows 7 or beta version of vista vb6 sendkeys gives error 70 Permission in IDE 1) Run Vb6 as administrator 2) Create Module in Your Project and add following code to avoid IDE Crash Public Sub Sendkeys(text$, Optional wait as boolean=false) Set wshshell=createobject("wscript.shell") wshshell.Sendkeys text,wait set wshshell=Nothing end Sub and now you can use sendkeys in IDE like sendkeys "{Tab}" Thanks