VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CBlock"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private mOffset As Long   ' 0-based file offset
Private mSize As Long     ' length in bytes

Public sect1 As String
Public sect2 As String

Public Property Get Offset() As Long
    Offset = mOffset
End Property

Public Property Let Offset(ByVal v As Long)
    mOffset = v
End Property

Public Property Get size() As Long
    size = mSize
End Property

Public Property Let size(ByVal v As Long)
    mSize = v
End Property

Public Function ToString() As String
    ToString = "BLOCK start=0x" & Hex$(mOffset) & " (" & CStr(mOffset) & "), len=" & CStr(mSize)
End Function

