怎样才能让 自己写的控件 在vb的ide环境下 显示自己的index值

[shiguangxin]

标题可能没说清楚
就是说 自己开发一个控件
然后将这个控件 的多个实例子 以控件数组的形式 放到 窗体上

为了看起来方便 我在控件上放了一个label 用它来显示控件的index 的值

这个label 我希望在设计的时候显示 在运行的时候不显示 请问这样能实现吗
我对编写控件这方面不熟

请高人指点 谢谢

[shiguangxin]

木有高人理我呀

[韧恒]

关键部分代码如下：

Private Sub UserControl_AmbientChanged(PropertyName As String)
If PropertyName = "DisplayName" Then
'' 当index属性改变时会引发，此时把index值在label1中显示
Label1.Caption = UserControl.Extender.Index
End If
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
'' 仅在运行时显示label控件
Label1.Visible = Not UserControl.Ambient.UserMode
'' 确保每次在设计时显示窗口时都能显示index的值
Label1.Caption = UserControl.Extender.Index
End Sub