 If lFrame &gt; 0 Then
         BitBlt hDCOrig, 0, 0, m_lIconSizeX, m_lIconSizeY, m_cUndoDC.hdc,
          (lFrame - 1) * m_lIconSizeX, 0, vbSrcCopy
         m_iUndoCount = m_iUndoCount + lDepth
         m_iRedoCount = m_iRedoCount - lDepth
         m_iCurrentIndex = WrapAdd(m_lFrameCount, m_iCurrentIndex, lDepth)
      End If
   End If
End Sub
Public Property Get UndoDepth() As Long
   UndoDepth = m_iUndoCount
End Property

Public Property Get RedoDepth() As Long
   RedoDepth = m_iRedoCount
End Property
Pu