dId = False
Attribute VB_Exposed = False
Option Explicit

'private const ID3_TAG_BYTES   128
Private Type ID3_TAG
   TagHeader As String * 3    '// should equal 'TAG'
   Title As String * 30       '// title
   Artist As String * 30      '// artist
   Album As String * 30       '// album
   Year As String * 4         '// year
   Comment As String * 29     '// comment
   Track As Byte              '// track
   Genre As Byte              '// genre
End Type

Private Type WAVEFORMATEX
   wFormatTag As Integer
  