visual basic ile sistemde ses kartı olup olmadığını kontrol etme

KONU;
Visual Basic ile Sistemde Ses Kartı Olup Olmadığını Kontrol Etmek

KODLAR;

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