Imports System
Module ConditionalConstants
	Sub Main()
		Dim value As Integer
		#A=True		' const missing
		#If A
			value=10
		#End If
			
	End Sub
End Module