Private Declare Function waveOutGetDevCaps Lib "winmm.dll" Alias "waveOutGetDevCapsA" _
        (ByVal uDeviceID As Long, lpCaps As WAVEOUTCAPS, ByVal uSize As Long) As Long
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Private Type WAVEOUTCAPS
    ManufacturerID As Integer
    ProductID As Integer
    DriverVersion As Long
    ProductName As String *  32 
    Formats As Long
    Channels As Integer
    Support As Long
End Type

Sub s_GetDevicesProperty()
  Dim Caps As WAVEOUTCAPS
  Dim Device As Long
  
  For Device =  0  To waveOutGetNumDevs -  1 
    waveOutGetDevCaps Device, Caps, Len(Caps)
    Debug.Print Caps.ManufacturerID
    Debug.Print Caps.ProductID
    Debug.Print Caps.DriverVersion
    Debug.Print Caps.ProductName
    Debug.Print Caps.Formats
    Debug.Print Caps.Channels
    Debug.Print Caps.Support
    Debug.Print "========================="
  Next Device
End Sub