mcs/btests/LogicalOperators1.vb

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