mcs/btests/AssignmentStatements5.vb

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