, 0, 0, vbSrcCopy
End Sub
Public Sub Undo(ByVal hDCOrig As Long, ByVal lDepth As Long)
Dim lFrame As Long
Dim lNextFrame As Long
   If m_iUndoCount &gt;= lDepth Then
      If m_iRedoCount = 0 Then
         ' must store current image in next frame so we can redo:
         lNextFrame = WrapAdd(m_lFrameCount, m_iCurrentIndex, 1)
         BitBlt m_cUndoDC.hdc, (lNextFrame - 1) * m_lIconSizeX, 0,
          m_lIconSizeX, m_lIconSizeY, hDCOrig, 0, 0, vbSrcCopy
      End If
      lFrame = UndoIndex(lDepth - 1)
    