rue
    Render
End Sub

Public Sub GrayScale()
    m_cImage.GrayScale m_cDib
    m_bDirty = True
    Render
End Sub

Public Sub NegativeImage()
    m_cImage.AddImages m_cDib, m_cDibBuffer, -1, -255, -255, -255, 0, 0, 0, 0
    m_cDibBuffer.PaintPicture m_cDib.hdc
    m_bDirty = True
    Render
End Sub

Public Sub AddNoise(ByVal bRandom As Boolean, ByVal lAmount As Long)
    m_cImage.AddNoise m_cDib, lAmount, bRandom
    m_bDirty = True
    Render
    m_bDirty = True
End Sub

Public Sub Resample(ByVal lW As L