erty
Public Property Let Year(ByVal sYear As String)
Dim s As String
   s = String(4, 0)
   LSet s = sYear
   LSet m_tID3.Year = s
End Property
Public Property Get Comment() As String
   Comment = nullTrim(m_tID3.Comment)
End Property
Public Property Let Comment(ByVal sComment As String)
Dim s As String
   s = String(29, 0)
   LSet s = sComment
   LSet m_tID3.Comment = s
End Property
Public Property Get Track() As Byte
   Track = m_tID3.Track
End Property
Public Property Let Track(ByVal bTrack As Byte)
   m