声卡切换程序

在VB里有没有跟音频设备相关的API？(不是播放)
我有两张声卡，有时要频繁切换，想做了个声卡切换程序
借鉴了音频论坛某兄的VBS代码：==============================================
'切换默认声卡
'Coded by gzXW
Option ExplicitDim WshShell
Set WshShell = CreateObject("WScript.Shell" )'运行音频面板
WshShell.Run("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,2" )
WScript.Sleep(200)'模拟按键，选择声卡“SB Live”,首字母是S
WshShell.SendKeys("{S}" )
WshShell.SendKeys("{ENTER}" )
===============================================这段代码用到VB上也不错，只是搞不清楚运行到“WScript.Sleep(200)”这一句时会提示没有对象!？只好用API来暂停了~
这样实现有些缺点，窗口弹出很不爽~而且无法知道正在使用的是哪一张声卡
希望哪位达人提供下相关的音频设备的API!或提供更好的代码方案~