oShell = CreateObject('WScript.Shell')
oShell.Run('Control.exe mmsys.cpl,,0') && Playback Tab.
*** oShell.Run('Control.exe mmsys.cpl,,1') && Recording Tab.
*** oShell.Run('Control.exe mmsys.cpl,,2') && Sounds Tab.

_______________________________________________________________
Testing displays the presence, not the absence of bugs.
If a software application has to be designed, it has to be designed correctly!
_______________________________________________________________
Vladimir Zografski
Systems Analyst