 Sub CopyImage()
    m_cDib.CopyToClipboard False
End Sub
Public Sub ProcessImage(ByVal eType As EFilterTypes)
    With m_cImage
        .FilterType = eType
        .ProcessImage m_cDib, m_cDibBuffer
        Render
        m_bDirty = True
    End With
End Sub
Public Sub LoadCustomFilter(ByRef cI As cImageProcessDIB)
Dim i As Long, j As Long
    With m_cImage
        .FilterType = eCustom
        .FilterWeight = cI.FilterWeight
        .FilterArraySize = cI.FilterArraySize
        For i = -cI.FilterArraySize