 String
   Title = nullTrim(m_tID3.Title)
End Property
Public Property Let Title(ByVal sTitle As String)
Dim s As String
   s = String(30, 0)
   LSet s = sTitle
   LSet m_tID3.Title = s
End Property
Public Property Get Artist() As String
   Artist = nullTrim(m_tID3.Artist)
End Property
Public Property Let Artist(ByVal sArtist As String)
Dim s As String
   s = String(30, 0)
   LSet s = sArtist
   LSet m_tID3.Artist = s
End Property
Public Property Get Year() As String
   Year = nullTrim(m_tID3.Year)
End Prop