te m_eCompressionLevel As EMacCompressionLevel

Private m_bOperationInProgress As Boolean

Private m_tID3 As ID3_TAG
Private m_tID3Blank As ID3_TAG

Public Event Progress(ByVal nPercentDone As Single, ByRef bCancel As Boolean)
Public Event Complete()

Public Property Get Album() As String
   Album = nullTrim(m_tID3.Album)
End Property
Public Property Let Album(ByVal sAlbum As String)
Dim s As String
   s = String(30, 0)
   LSet s = sAlbum
   LSet m_tID3.Album = s
End Property

Public Property Get Title() As