Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim Caps As WaveInCaps
        For Which As Integer = 0 To waveInGetNumDevs - 1
            waveInGetDevCaps(Which, Caps, Len(Caps))
            If Caps.Formats <> 0 Then
                Debug.Write (Caps.ProductName)
            End If
        Next
    End Sub
    Public Declare Auto Function waveInGetNumDevs Lib "winmm.dll" () As Integer
    Public Declare Auto Function waveInGetDevCaps Lib "winmm.dll" Alias _
      "waveInGetDevCapsA" (ByVal uDeviceID As Integer, ByRef lpCaps As _
      WaveInCaps, ByVal uSize As Integer) As Integer
    Public Structure WAVEINCAPS
        Dim ManufacturerID As Short
        Dim ProductID As Short
        Dim DriverVersion As Integer
        Dim ProductName As Byte
        Dim Formats As Integer
        Dim Channels As Short
        Dim Reserved As Short
    End Structure