RosettaCodeData/Task/Dining-philosophers/Visual-Basic-.NET/dining-philosophers-2.vb
2023-07-01 13:44:08 -04:00

11 lines
257 B
VB.net

Class Fork
Private ReadOnly m_Number As Integer
Public Sub New(ByVal number As Integer)
m_Number = number
End Sub
Public ReadOnly Property Number() As Integer
Get
Return m_Number
End Get
End Property
End Class