Dim mName As String Public Property Name() As String Get Return mName End Gett Set(ByVal value As String) mName = value End Set End Property