O'Reilly logo
  • Kimberly Szozda thinks this is interesting:

tructure Customer Dim m_firstName As String Dim m_lastName As String ReadOnly Property Name() As String Get Return m_firstName + " " + m_lastName End Get End Property WriteOnly Property FirstName() Set(ByVal value) m_firstName = value End Set End Property WriteOnly Property LastName() Set(ByVal value) m_lastName = value End Set End Property End Structure