VB Snippet - Is Sound Card Present

VB Code:

Private Declare Function waveOutGetNumDevs Lib "winmm" () As Long
 
Dim COUNTDEVICES As Long
 
COUNTDEVICES = waveOutGetNumDevs()
 
If COUNTDEVICES > 0 Then         
 
      ' AT LEAST DEVICE TO PLAY SOUNDS EXISTS
 
      MsgBox "You Can Play Sounds"      
 
End If