Dim data As Long
Dim inFF As WAVEINCAPS
Dim outFF As WAVEOUTCAPS
Dim WW As WAVEFORMAT
Dim NN As Long
Dim i As Long
Dim wv As WAVEHDR
Dim rc As Long
Private Sub Command1_Click()
' On Error Resume Next
List1.Clear
NN = waveInGetNumDevs
For i = 0 To NN - 1
waveInGetDevCaps i, inFF, 32
List1.AddItem inFF.szPname
Next i
'
List2.Clear
NN = waveOutGetNumDevs
For i = 0 To NN - 1
waveOutGetDevCaps i, outFF, 32
List2.AddItem outFF.szPname
Next i