cDibBuffer, m_cDib
   End Select
   FileName = "Image " &amp; mfrmMain.NewImageIndex
   Me.Caption = "Image: " &amp; FileName
   m_bDirty = True
   Render
End Sub

Public Property Get ImageWidth() As Long
   ImageWidth = m_cDib.Width
End Property
Public Property Get ImageHeight() As Long
   ImageHeight = m_cDib.Height
End Property


Public Sub ApplyPalette(ByVal sPalFile As String)
Dim cPal As New cPalette
   cPal.LoadFromFile sPalFile
   m_cImage.ApplyPalette m_cDib, m_cDibBuffer, cPal
   m_bDirty = True
 