_tID3.Track = bTrack
End Property
Public Property Get Genre() As Byte
   Genre = m_tID3.Genre
End Property
Public Property Let Genre(ByVal bGenre As Byte)
   m_tID3.Genre = bGenre
End Property
Public Sub ApplyID3Tag()
   If (FileExists(m_sFileNameApe)) Then
      
      Dim b() As Byte
      b = StrConv(m_sFileNameApe, vbFromUnicode)
      ReDim Preserve b(0 To UBound(b) + 1) As Byte
      
      Dim bAlbum() As Byte
      bAlbum = StrConv(m_tID3.Album, vbFromUnicode)
      ReDim Preserve bAlbum(0 To UBound