2 REM ExpectedError: BC30524
3 REM ErrorMessage: Property 'mystr' is 'WriteOnly'.
6 Imports Microsoft
.VisualBasic
8 Module AssignmentStatementsC4
10 Private str
As String = "Hello VB.NET World"
11 Public WriteOnly
Property mystr() As String
12 Set(ByVal Value
As String)
19 Mid(mystr
, 7) = "MS.NET"
20 If mystr
<> "Hello MS.NETBasic " Then
21 Throw
New Exception("#ASC41 - Assignment Statement failed")