如何从ACTIVEX控件内部,设定ACTIVEX外部的固有属性

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

------解决方案--------------------
用向导,做影射
------解决方案--------------------
通过Extender,比如:
VB code
 
Dim WithEvents btn As CommandButton

Private Sub btn_Click()
  '设置控件可视属性
  UserControl.Extender.Visible = False
End Sub

Private Sub UserControl_Initialize()
  UserControl.BackColor = vbRed
  Set btn = UserControl.Controls.Add("VB.CommandButton", "btn")
  btn.Visible = True
End Sub

Private Sub UserControl_Terminate()
  UserControl.Controls.Remove "btn"
End Sub