如何知道计算机是否安装声卡？

　　声明：
** Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
程序：
If waveOutGetNumDevs() Then
MsgBox "系统安装了声卡。", vbInformation
Else
MsgBox "系统无声卡。", vbInformation
End If