mcs/btests/ConditionalCompilationC2.vb

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