mcs/btests/BoolLiteralA.vb

   1 Option Strict Off
   2 Imports System
   3 Module M
   4         Sub Main()
   5         Try
   6                 Dim a As Boolean=True
   7                 Dim b As Boolean=False
   8                 Dim c As Boolean
   9                 c=a+b
  10                 If a<>True
  11                         Throw New Exception("BoolLiteralB:Failed")
  12                 End If
  13         Catch e As Exception
  14                 Console.WriteLine(e.Message)
  15         End Try
  16         End Sub
  17 End Module