<VB.NET>自定义类创建属性

一般属性定义：

Public m属性名 As String = ""
Public Property 属性名() As String
    Get
       Return m属性名
    End Get
    Set(ByVal value As String)
        m属性名 = value
        MyBase.Refresh()
    End Set
End Property

数组属性定义：

Public m属性名 As String()
Public Property 属性名() As String()
    Get
        Return m属性名
    End Get
    Set(ByVal value As String())
        m属性名 = value
    End Set
End Property