mcs/mbas/Test/rerrors/LiteralNothing1.vb

   1 Imports System
   2 Module LiteralNothing
   3         Sub Main()
   4                 Try
   5                         Dim a As String="Hello"
   6                         a=Nothing
   7                         Dim b As String=a.Substring(2)
   8                 Catch e As Exception
   9                         Console.WriteLine(e.Message)
  10                 End Try
  11         End Sub
  12 End Module