vb6.0如何为用户控件添加属性并显示在右侧属性栏中？

如果我想将usercontrol1里面的控件TEXT1的text属性定义为usercontrol1的一个属性并在右侧属性栏显示。我该如何做呢？我是新手，最好有源码与解释。。。多谢各位高人解答啦

添加代码

 Public Property Get 属性名 As String
    属性名 = Me.Text1.Text
End Property
Public Property Set 属性名(ByVal Value As String)
    Me.Text1.Text = Value
End Property

另外还有两个办法，一个是点工具菜单的添加过程，然后输入属性名，下面选择属性，点确定，然后按照上面输入代码。
还有一个更简单的办法，是在工具菜单打开外接程序管理器，里面有个控件向导，可以自动映射属性。本质上还是添加这些代码。