VB.SendKeys in Windows 7

VB6
Da errore di accesso negato

Invece di VB.SendKey utilizzare


Dim WshShell As Variant

        Set WshShell = CreateObject("WScript.Shell")
        WshShell.SendKeys "{HOME}+{END}"



;-)