mcs/mbas/Test/rerrors/AssignmentStatements5.vb

   1
   2 Imports System
   3
   4 Module AssignmentStatements5
   5
   6     Private str As String = "Hello VB.NET World"
   7
   8     Public ReadOnly Property mystr() As String
   9         Get
  10             Return str
  11         End Get
  12     End Property
  13
  14     Sub main()
  15
  16         Mid(mystr, 7) = "MS.NET"
  17         Console.WriteLine(mystr)
  18         If mystr <> "Hello MS.NETBasic " Then
  19             Throw New Exception("#AS5 - Assignment Statement failed")
  20         End If
  21
  22     End Sub
  23
  24 End Module