l lIconSizeX As Long, ByVal lIconSizeY As Long, ByVal
 lFrameCount As Long)
Dim lhDC As Long
   Set m_cUndoDC = New cMemDC
   With m_cUndoDC
      .Width = lIconSizeX * lFrameCount
      .Height = lIconSizeY
      lhDC = .hdc
   End With
   If Not (lhDC = 0) Then
      m_lIconSizeX = lIconSizeX
      m_lIconSizeY = lIconSizeY
      m_lFrameCount = lFrameCount
      ReDim m_sNames(1 To m_lFrameCount) As String
   End If
   m_iUndoCount = 0
   m_iRedoCount = 0
   m_iCurrentIndex = 0
End Sub
Public Sub Add(ByV