mcs/btests/BoolLiteralTest1.vb

   1 Module BoolLiteralTest1
   2     Sub Main()
   3         Try
   4             Dim b As Boolean
   5             b = Not True
   6         Catch e As Exception
   7             Console.WriteLine(e.Message)
   8         End Try
   9     End Sub
  10 End Module