VB6 Sendkeys "{tab}" Run-time error '70' Permission denied

VB6 Sendkeys "{tab}"
menghasilkan error seperti ini:





Solusinya adalah dengan :

In a public Module add:

Public Sub Sendkeys(text$, Optional wait As Boolean = False)
    Dim WshShell As Object
    Set WshShell = CreateObject("wscript.shell")
    WshShell.Sendkeys text, wait
    Set WshShell = Nothing
End Sub

This will "overwrite" SendKeys Function

Semoga bermanfaat