s(lTheIndex)
   End If
End Property
Private Property Get RedoIndex(ByVal lDepth As Long) As Long
   RedoIndex = WrapAdd(m_lFrameCount, m_iCurrentIndex, lDepth)
End Property
Private Function WrapAdd(ByVal lCount As Long, ByVal lIndex As Long, ByVal lAmt
 As Long) As Long
Dim lR As Long
   lR = lIndex + lAmt
   If lR &gt; lCount Then
      lR = (lR - lCount)
   End If
   WrapAdd = lR
End Function
Private Function WrapSubtract(ByVal lCount As Long, ByVal lIndex As Long, ByVal
 lAmt As Long) As Long
Dim lR As L