Public Class YourClass

Private yourName As String

Private yourNumber As Decimal

Public Sub New(breed As String)

yourName = breed

End Sub

Public ReadOnly Property Name() As String

Get

Return yourName

End Get

End Property