ong, ByVal lH As Long)
Dim cDib As New cDIBSection
    If (lW &lt;&gt; m_cDib.Width) Or (lH &lt;&gt; m_cDib.Height) Then
        Set cDib = m_cDib.Resample(lH, lW)
        Set m_cDib = cDib
        m_cDibBuffer.Create m_cDib.Width, m_cDib.Height
        Render
    End If
    m_bDirty = True
End Sub

Public Sub Render()
    picImage.Width = m_cDib.Width * Screen.TwipsPerPixelX
    picImage.Height = m_cDib.Height * Screen.TwipsPerPixelY
    m_cDib.PaintPicture picImage.hdc
    picImage.Refresh
End Sub

Public