mcs/btests/LogicalOperators1.vb

   1 \r
   2 Imports System\r
   3 \r
   4 Module LogicalOperators1\r
   5     Sub main()\r
   6 \r
   7         Dim a1 As Boolean = True\r
   8         Dim b1 As String = "xyz"\r
   9         If a1 And b1 Then\r
  10             a1 = False\r
  11         End If\r
  12     End Sub\r
  13 End Module