eadSectors(ByVal value As Long)
   If Not (m_tP.nNumReadSectors = value) Then
      m_tP.nNumReadSectors = value
      m_bDirty = True
   End If
End Property
Public Property Get ReadOverlap() As Long
   ReadOverlap = m_tP.nNumOverlapSectors
End Property
Public Property Let ReadOverlap(ByVal value As Long)
   If Not (m_tP.nNumOverlapSectors = value) Then
      m_tP.nNumOverlapSectors = value
      m_bDirty = True
   End If
End Property
Public Property Get BlockCompare() As Long
   BlockCompare = m_tP.nNumCom