blic Property Get UndoName(ByVal lDepth As Long) As String
Dim lTheIndex As Long
   lTheIndex = UndoIndex(lDepth)
   If lTheIndex &gt; 0 Then
      UndoName = m_sNames(lTheIndex)
   End If
End Property
Private Property Get UndoIndex(ByVal lDepth As Long) As Long
   UndoIndex = WrapSubtract(m_lFrameCount, m_iCurrentIndex, lDepth)
End Property
Public Property Get RedoName(ByVal lDepth As Long) As String
Dim lTheIndex As Long
   lTheIndex = RedoIndex(lDepth)
   If lTheIndex &gt; 0 Then
      RedoName = m_sName