属性修改后没有任何设置，当然不会改变，改改Set(ByVal value As String) Text_1 = value Me.Label1.Text = Text_1End SetSet(ByVal value As String) Text_2 = value Me.Label2.Text = Text_2End Set
