mcs/mbas/Test/tests/conversions/ConversionWithAndOperatorNumA.vb

   1 'Author: Ritvik Mayank <mritvik@novell.com>
   2 'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
   3
   4 Imports System
   5 Module ConversionAndOperator
   6
   7 Sub Main()
   8         Dim A As Integer = 3
   9         Dim B As Boolean = True
  10         Dim R As Boolean
  11         R = A And B     '0000 And -1 = 1111
  12         if R = False Then
  13                 throw new Exception("#Error With And Operator")
  14         End if
  15 End Sub
  16 End Module