你怎么加的属性?给你个例子
    Public Property TextIsMultiFlag() As Boolean
        Get
            Return Me.M_TextIsMultiFlag
        End Get
        Set(ByVal Value As Boolean)
            Me.M_TextIsMultiFlag = Value
        End Set
    End Property    Private M_TextIsMultiFlag As Boolean