Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
        Dim oAuftrag As New cAuftrag
        oAuftrag.nNummer = 12345
        oAuftrag.Kopfdaten(1).strName = "Bestellung"
    End Sub
 
    Public Class cAuftrag
        Public nNummer As Long
        Public Kopfdaten(5) As cFeld
 
        Public Class cFeld
            Public strName As String
        End Class
    End Class