 \ 2 To cI.FilterArraySize \ 2
            For j = -cI.FilterArraySize \ 2 To cI.FilterArraySize \ 2
                .FilterValue(i, j) = cI.FilterValue(i, j)
            Next j
        Next i
    End With
End Sub

Public Property Get Dirty() As Boolean
    Dirty = m_bDirty
End Property
Public Function QuerySave() As Boolean
Dim eR As VbMsgBoxResult
    eR = MsgBox("The image '" &amp; m_sFIleTitle &amp; "' has been changed." &amp; vbCrLf &amp;
     vbCrLf &amp; "Do you want to save it?", vbYesNoCancel Or vb