VB Code:
  1. Private Declare Function waveOutGetNumDevs Lib "winmm" () As Long

  2.  
  3. Dim COUNTDEVICES As Long

  4.  
  5. COUNTDEVICES = waveOutGetNumDevs()

  6.  
  7. If COUNTDEVICES > 0 Then         

  8.  
  9.       ' AT LEAST DEVICE TO PLAY SOUNDS EXISTS

  10.  
  11.       MsgBox "You Can Play Sounds"      

  12.  
  13. End If