Sistemde Ses Kartı Olup Olmadığını Kontrol Etmek

(Modul)(General)(Declaration)
Public Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long

Private Sub Command1_Click()
Dim i As Integer
i = waveOutGetNumDevs()
If i > 0 Then
MsgBox " Sistemde Ses Kartı Bulunmaktadır ", vbInformation
Else
MsgBox " Sistemde Ses Kartı Bulunmamaktadır ", vbInformation
End If
End Sub