'General delen>>
Declare Function waveOutGetNumDevs Lib "MMSYSTEM" () As Integer

'Kod>>
i% = waveOutGetNumDevs()
If i% > 0 Then MsgBox "You Can Play Wave Data" Else MsgBox "Cannot Play Wave Data"