1--默认属性--
(1)属性 GET中 加上AttributeValue.VB_UserMemId = 0 '--不过貌似有问题
(2) Private Sub UserControl_InitProperties()
Text1.Text = Ambient.DisplayName
End Sub
(3) “Tools”-“Procedure Attributes”-选择目标属性-"Advanced"-"Procedure ID" -default
2--属性 设计时，属性页不可见，运行时可见
“Tools”-“Procedure Attributes”-选择目标属性-"Advanced"- 勾选“Don't show in property browser”