Option Explicit
 
Private m_Repeat As Boolean
 
Public Property Get Repeat() As Boolean
  Repeat = m_Repeat
End Property
 
Public Property Let Repeat(ByVal bRepeat As Boolean)
  m_Repeat = bRepeat
End Property

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de