Public Class Person
 
  Private m_Id As Integer
  Private m_Name As String
 
  Public ReadOnly Property Id As Integer
      Get
         return m_Id
      End Get
   End Property
 
   Public Property Name As String
      Get
         return m_Name
      End Get
      Set (value As String)
         m_Name = value
      End Set
   End Property
 
   Public Sub new (personId As Integer)
      m_Id = personId
   End Sub
 
End Class

Robert Blutner
robertblutner.de