Classic VB Listing #1: Windows Scripting Host Option
Public Sub SendKeys(ByVal Keys As String, Optional Wait As Boolean = False)
Dim wsh As Object
' Only mess with shell object under constraint.
If (IsVista() = True) And (Compiled() = False) Then
' Create shell object, which works.
Set wsh = CreateObject("WScript.Shell")
wsh.SendKeys Keys, Wait
Set wsh = Nothing
Else
' Use standard function when compiled or
' not running on Vista!
VBA.SendKeys Keys, Wait
End If
End Sub