mcs/btests/ConditionalCompilationC.vb

   1 Imports System
   2 Module ConditionalCompilation
   3         Sub Main()
   4                 Dim value As Integer
   5                 'Testing whitespaces between #If
   6                 Try
   7                         #        If True
   8                                 value=50
   9                         #End   If
  10                         If value<>50
  11                                 Throw New Exception("#A1-Conditional Compilation:Failed ")
  12                         End If
  13                 Catch e As Exception
  14                         Console.WriteLine(e.Message)
  15                 End Try
  16
  17       End Sub
  18 End Module
  19