codice:
Option Strict On

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim j As New Prova()
        j.miaProprieta = New String() {"Stefano", "Carlo", "Nicola"}

        For i As Integer = 0 To j.miaProprieta.GetUpperBound(0)
            Response.Write(j.miaProprieta(i) & "
")
        Next
    End Sub


    Private Class Prova

        Private _miaProprieta As String()
        Public Property miaProprieta() As String()
            Get
                Return Me._miaProprieta
            End Get
            Set(ByVal value As String())
                Me._miaProprieta = value
            End Set
        End Property
    End Class

End Class