怎么从ACTIVEX控件内部，设定ACTIVEX外部的固有属性

Question

做了一个ACTIVEX控件，想在ACTIVEX控件内部，设定一下ACTIVEX控件本身的属性值，例如可见，不可见，
不知道怎么从控件内部，找到这个控件的外部属性

Answer 1

通过Extender，比如：Dim WithEvents btn As CommandButtonPrivate Sub btn_Click()
    '设置控件可视属性
    UserControl.Extender.Visible = False
End SubPrivate Sub UserControl_Initialize()
    UserControl.BackColor = vbRed
    Set btn = UserControl.Controls.Add("VB.CommandButton", "btn")
    btn.Visible = True
End SubPrivate Sub UserControl_Terminate()
    UserControl.Controls.Remove "btn"
End Sub