mcs/btests/ConditionalCompilationE.vb

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