FIleTitle As String
Private m_bDirty As Boolean

Private WithEvents m_cImage As cImageProcessDIB
Attribute m_cImage.VB_VarHelpID = -1
Private m_cDib As New cDIBSection
Private m_cDibBuffer As New cDIBSection

Public Property Get ImageDibHDC() As Long
   ImageDibHDC = m_cDib.hdc
End Property

Public Sub Combine(ByRef fC As frmCombination)
   m_cDib.Create fC.NewImageWidth, fC.NewImageHeight
   m_cDibBuffer.Create m_cDib.Width, m_cDib.Height
   ' Copy the 1st source image to m_cDIb
   m_cDib.LoadPictureBlt Fo