Dim objCBT As clsBoxT Set objCBT = New clsBoxT Me.Show DoEvents objCBT.DoIT chk objCBT.DoIT opt Set objCBT = Nothing