ace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private m_iTrack As Long

Private m_sTitle As String
Private m_sAlbum As String
Private m_sArtist As String
Private m_sAlbumArtist As String
Private m_sTrack As String
Private m_sYear As String
Private m_sComment As String
Private m_sFileName As String

Public Sub Init(ByVal iTrack As Long, _
      ByVal sTitle As String, _
      ByVal sAlbum As String, _
      ByVal sAlbumArtist As Str