Sub testing()
Dim strs() As String = {"a", "b", "c"}
Dim t As New testclass
t.test = strs
MsgBox(t.test(2))
End Sub
Public Class testclass
Private _test() As String
Public Property test() As String()
Get
Return Me._test
End Get
Set(ByVal value As String())
Me._test = value
End Set
End Property
End Class