如何获取自制ActiveX控件在同一窗体中的实例数

Question

VB内部控件和第三方控件通常能够自动获得一个名称及显示文本[如果有的话，如label的caption，Textbox的text]，如：
     <label>控件   当前窗体中尚无此控件实例，新的label默认名会为label1,其caption为label1；如已有label1,则新的实例默认名为label2,其caption为label2本人最近做了一ActiveX控件（名为crRct），在VB窗体中添加控件该控件实例时时，VB的IDE会自动为其命名为crRct1,crRct2,...,我也想将其对应的caption赋值为名字相同的字符串，即crRct1,crRct2,...，而要实现此功能，我认为应在控件的初始化过程中获取其父对象[通常应为窗体]中已存在的该控件实例数目。但该何能获取呢？望各位提供看法和意见，请知道者不吝赐教！

Answer 1

Private Sub UserControl_Show()
Dim i
If Not Ambient.UserMode Then   '设计时
For Each ctr In Extender.Parent.Controls
If TypeOf ctr Is crRct Then
i = i + 1
End If
Next
End If
MsgBox i
End Sub

Answer 2

感谢“大头”，让我有找到了解决总是伯思路。其实更简单也更合适的办法,在此与各位共鉴。即在过程UserControl_InitProperties中用如下语句：     If Ambient.UserMode = False Then
        Caption = Extender.Name
     End If