Verificar a existência de placa de som

Verificar a existência de placa de som

Private Declare Function waveOutGetNumDevs Lib “winmm.dll” () As Long

Dim res As Integer
res = waveOutGetNumDevs()
If res > 0 Then
msgbox “Existe Placa de Som”
Else
msgbox “Não Existe Placa de Som”
End If