Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private m_set As Long Public Property Get setup() As Long setup = m_set End Property Public Property Let setup(strset As Long) m_set = strset End Property Public Function Sleeptime() Sleep (setup) End Function