Demonstrates Const and ReadOnly members : ReadOnly « Class Module « VB.Net Tutorial

1. VB.Net Tutorial
2. Class Module
3. ReadOnly

Module Tester

   Sub Main()
      Dim random As Random = New Random()
      Dim circle As MyConstant = New MyConstant(random.Next(1, 20))

      Dim radius As String = Convert.ToString(circle.RADIUS)

      Console.WriteLine("Radius = " & radius & vbCrLf _
         & "Circumference = " + String.Format("{0:N3}", _
         circle.RADIUS * 2 * MyConstant.PI))

   End Sub 

End Module 

Class MyConstant

   Public Const PI As Double = 3.14159

   Public ReadOnly RADIUS As Integer

   Public Sub New(ByVal radiusValue As Integer)
      RADIUS = radiusValue
   End Sub 

End Class

Radius = 3
Circumference = 18.850