中国软件，倒底有没有高手！？没人用过控件的属性页？？？？

Question

((((
本人做了一个控件，完了后欲象VB中的一样，加上了个属性页。在属性页放上一些相关的属性设定界，比如：Caption（一个Label + 一个EditBox）。完成后能打开这个属性页，并在EditBox中输入，但输入的值如何才能真正的改变 Captoin 属性的值呢？？？ 原因是 UserControl 中的全局变量或全局过程,无法被其它的模块调用（本人无法做到）！！！也就是无法调用 Property Let()。 
))))

Answer 1

设置控件的propertypages属性
属性页中，写类似如下的代码：
Private Sub PropertyPage_ApplyChanges()
    Dim ctl
    For Each ctl In SelectedControls
        ctl.Caption = Text1.Text
    Next
End SubPrivate Sub PropertyPage_EditProperty(PropertyName As String)
    
End SubPrivate Sub PropertyPage_SelectionChanged()
    Text1.Text = SelectedControls(0).Caption
End SubPrivate Sub Text1_Change()
    Changed = True
End Sub