pareSectors
End Property
Public Property Let BlockCompare(ByVal value As Long)
   If Not (m_tP.nNumCompareSectors = value) Then
      m_tP.nNumCompareSectors = value
      m_bDirty = True
   End If
End Property

Public Property Get StartOffset() As Long
   StartOffset = m_tP.nOffsetStart
End Property
Public Property Let StartOffset(ByVal value As Long)
   If Not (m_tP.nOffsetStart = value) Then
      m_tP.nOffsetStart = value
      m_bDirty = True
   End If
End Property
Public Property Get EndOffset() As Lo