Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim EinTest As New Test
 
	EinTest.GetPersonen()
        MsgBox(EinTest.Person(1).Nachname) 'Funktioniert super
	MsgBox(UBound(EinTest.Person)) 'Dies erlaubt er mir nicht - Warum?
    End Sub
End Class
 
 
Public Class Test
 
    Public Structure MyPerson
        Dim Vorname As String
        Dim Nachname As String
        Dim Alter As Int16
    End Structure
 
    Private m_Person() As MyPerson
 
    Public ReadOnly Property Person(ByVal x As Int16) As MyPerson
        Get
            Return m_Person(x)
        End Get
    End Property
 
    Public Sub GetPersonen()
 
        'Array initialisieren 
        ReDim m_Person(1)
 
        m_Person(1).Vorname = "Hans"
        m_Person(1).Nachname = "Wurst"
        m_Person(1).Alter = "50"
 
        ReDim Preserve m_Person(UBound(m_Person) + 1)
 
        m_Person(2).Vorname = "Hans2"
        m_Person(2).Nachname = "Wurst2"
        m_Person(2).Alter = "50"
 
	'.....
	'.....
 
 
    End Sub
 
End Class