mcs/mbas/Test/tests/statements/AssignmentStatementsJ.vb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

Imports System
Imports Microsoft.VisualBasic

Module AssignmentStatementsC
	Class Obj
		Dim _prop as String
		Public Property prop() As String
			Set
				_prop = Value
			End Set
			Get
				Return _prop
			End Get
		End Property
	End Class

	Sub Main()
		Dim foo As New Obj
		foo.prop = "Hello"
		foo.prop += "World"

        	If foo.prop <> "HelloWorld" Then
            		Throw New Exception("#ASC5 - Assignment Statement failed")
        	End If
	End Sub
End Module