hen
      m_pKillFlag = 1
   End If
End Sub

Public Property Get Processing() As Boolean
   Processing = m_bOperationInProgress
End Property

Public Property Get ApeFileName() As String
   ApeFileName = m_sFileNameApe
End Property
Public Property Let ApeFileName(ByVal sFileName As String)
   LSet m_tID3 = m_tID3Blank
   m_sFileNameApe = sFileName
   If (FileExists(m_sFileNameApe)) Then
      pGetID3Tag
   End If
End Property

Private Function pGetID3Tag() As Boolean
Dim b() As Byte
Dim lR As Long
   b = Str