mcs/mbas/Test/rerrors/CharacterLiterals1.vb

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