mcs/btests/CharacterLiterals1.vb

   1 Module CharacterLiterals1\r
   2     Sub Main()\r
   3         Dim c As Char\r
   4         c = "x"c\r
   5 \r
   6         Dim a As String = "X"\r
   7         If a <> c Then\r
   8             Throw New System.Exception("a is not same as c")\r
   9         End If\r
  10     End Sub\r
  11 End Module\r