Try just:Public Sub myControl(otp As Object)ByRef is the default.(and changemyctrl OptCollapsetomyControl OptCollapse(a typo I guess))