  Render
End Sub

Public Sub Colourise(ByVal fHue As Single)
   ' Colourise takes hue (-1 to 5)
   m_cImage.Colourise m_cDib, fHue, 0.5
   m_bDirty = True
   Render
End Sub

Public Sub Lighten()
   ' Lighten takes percentage:
   m_cImage.Lighten m_cDib, 20
   m_bDirty = True
   Render
End Sub

Public Sub Fade()
   ' Fade 255 = no fading, 0 = all black
   m_cImage.Fade m_cDib, 240
   m_bDirty = True
   Render
End Sub

Public Sub BlackAndWhite()
    m_cImage.BlackAndWhite m_cDib, m_cDibBuffer
    m_bDirty = T