Public Class ConstantBase
Public Const GENERATION As Integer = 1
End Class
Public Class ConstantDerived : Inherits ConstantBase
End Class
Public Class classMain
Public Shared Sub Main()
Dim cd As New ConstantDerived
Console.WriteLine(cd.GENERATION)
End Sub
End Class
1