bir modül oluşturn ve içene :
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 "ses kartı var .", vbInformation, "ses kartı var mı yok mu"
Else
MsgBox "ses kartı yok ", vbInformation, "ses kartı var mı yok mu"
End If