Public Declare Function waveInGetNumDevs Lib "winmm" () As Integer
    Public Declare 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
        <VBFixedArray(32)> Dim ProductName() As Byte
        Dim Formats As Integer
        Dim Channels As Short
        Dim Reserved As Short
 
        Public Sub Initialize()
            ReDim ProductName(32)
        End Sub
    End Structure
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim Caps As WaveInCaps
        Caps.Initialize()
        For Which As Integer = 0 To waveInGetNumDevs - 1
            waveInGetDevCaps(Which, Caps, Len(Caps))    'Object reference not 
            ' set to an instance of an object
            If Caps.Formats <> 0 Then
                MsgBox(Caps.ProductName)
            End If
        Next
    End Sub