Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Private Sub Command1_Click()
Dim i As Integer
i = waveOutGetNumDevs()
If i > 0 Then
MsgBox "사운드 카드 이용 가능", vbInformation, "Sound Card Test"
Else
MsgBox "사운드 카드 이용할 수 없음", vbInformation, "Sound Card Test"
End If
End Sub
Source Page : http://www.mentalis.org/tips/tip027.shtml
