mcs/btests/LogicalOperatorsC1.vb

   1 ' BC30512: Option Strict On disallows implicit conversions from 'Double' to 'Long'.\r
   2 \r
   3 Option Strict On\r
   4 \r
   5 Imports System\r
   6 \r
   7 Module LogicalOperatorsC1\r
   8     Sub main()\r
   9 \r
  10         Dim a1 As Boolean = True\r
  11         Dim b1 As Double = 10.02\r
  12         If a1 And b1 Then\r
  13             a1 = False\r
  14         End If\r
  15     End Sub\r
  16 End Module