  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 = WrapSubtract(m_lFrameCount, m_iCurrentIndex, lDepth)
      End If
   End If
End Sub
Public Sub Redo(ByVal hDCOrig As Long, ByVal lDepth As Long)
Dim lFrame As Long
   If m_iRedoCount &gt;= lDepth Then
      lFrame = RedoIndex(lDepth + 1)
     