添加代码

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

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