Detectar si hay tarjeta de sonido


Con estas pocas líneas el programa podrá determinar si el sistema tiene o no placa de sonido.

En un módulo .BAS agregar:

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

Y en el form donde se quiere detectar:

Dim res As Integer
res = waveOutGetNumDevs()
If res > 0 Then
    msgbox "Existe tarjeta de sonido"
Else
    msgbox "No existe tarjeta de sonido"
End If