mcs/btests/ConditionalCompilationC2.vb

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