Solution for Sendkey Permission Denied For Vb.6.0

//Sendkey Permission Denied For Vb.6.0

Public Sub sendkeys_New (text As Variant, Optional wait As Boolean = False)
Dim WshShell As Object
Set WshShell = CreateObject('wscript.shell')
WshShell.Sendkeys CStr(text), wait
Set WshShell = Nothing
End Sub



Example :

sendkeys_New  '{TAB}'