mcs/btests/ConditionalConstantsC1.vb

   1 Imports System
   2 Module ConditionalConstants
   3         Sub Main()
   4                 Dim value As Integer
   5                 #A=True         ' const missing
   6                 #If A
   7                         value=10
   8                 #End If
   9
  10         End Sub
  11 End Module