Public Const : Public « Class Module « VB.Net Tutorial

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

Imports System

Module MyTest
  Sub Main()
    Console.WriteLine(Counter.MIN_COUNT)
    Console.WriteLine(Counter.MAX_COUNT)

    Dim input As Integer = 100
    if input < Counter.MIN_COUNT or _
       Input > Counter.MAX_COUNT Then
      Console.WriteLine("Value is out of acceptable range!")
    Else
      Console.WriteLine("The value " & input.ToString() & _
                        " is acceptable!")
    End If
    
  End Sub
End Module

Public Class Counter
  Public Const MAX_COUNT As Integer = 500
  Public Const MIN_COUNT As Integer = 100
End Class

100
500
The value 100 is acceptable!