You're welcome.
Keep in mind that delay may not be enough when computer is busy/slow.

>Thank You so much Sergey.
>Exactly what I needed.
>Works like a charm...
>
>>Try
>>

>>DECLARE Sleep IN WIN32API Long
>>
>>* Display 'Printers and Faxes'
>>ccPRINTERS = 0x4
>>loShellApp = CREATEOBJECT("Shell.Application")
>>loShellApp.Open(ccPRINTERS)
>>* Wait some time for dialog to show up
>>Sleep(1500)
>>* Change view
>>loShell = Createobject("wscript.shell")
>>loShell.AppActivate("Printers and Faxes")
>>loShell.SendKeys("%VD")
>>
>>