Article ID: 147811
Article Last Modified on 7/1/2004
#If Win32 Then
Private Declare Function waveOutGetNumDevs Lib "winmm" () As Long
#ElseIf Win16 Then
Private Declare Function waveOutGetNumDevs Lib "mmsystem" () _
As Integer
#End If
Private Sub Command1_Click()
#If Win32 Then
Dim i As Long
#ElseIf Win16 Then
Dim i As Integer
#End If
i = waveOutGetNumDevs()
If i > 0 Then ' There is at least one device.
MsgBox "You Can Play Wave Data"
Else
MsgBox "Cannot Play Wave Data"
End If
End Sub
Additional query words: kbVBp400 kbVBp600 kbVBp kbdsd kbDSupport kbVBA
Keywords: kbhowto KB147811