5 Dim a As Integer() = {1, 2, 3, 4}
\r
7 Public Property myprop() As Integer()
\r
11 Set(ByVal Value As Integer())
\r
18 ReDim Preserve myprop(6)
\r
19 Dim arr As Integer() = {1, 2, 3, 4, 10, 12, 14}
\r
24 For i As Integer = 0 to myprop.Length - 1
\r
25 Console.WriteLine(myprop(i))
\r
26 If myprop(i) <> arr(i) Then
\r
27 Throw New Exception("#AE1 - Array Statement failed")
\r