Public Property Name As String
Private _name As String Public Property Name As String Get Return _name End Get Set(ByVal value As String) _ _name = value End Set End Property
これは 2008以前は以下のように書く必要がありました。