Programalama > VISUAL BASIC

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

Bu kodu da formunuzun Form_Load olayı altına kopyalayın: 
Dim i As Integer
i = waveOutGetNumDevs()
If i > 0 Then
MsgBox "Your system supports a sound card.", vbInformation, "Sound Test"
Else
MsgBox "Your system cannot play Sound Blaster Files.", vbInformation, "Sound Test"
End If