Public Class Person Private m_name As String = "未設定" Private m_age As Integer = 0 Public Property Name() As String Get Return m_name End Get Set(ByVal Value As String) m_name = Value End Set End Property Public Property Age() As Integer Get Return m_age End Get Set(ByVal Value As Integer) m_age = Value End Set End Property Public Sub Dump() Trace.WriteLine(m_name) Trace.WriteLine(m_age) End Sub End Class