Public Class Flys
        Public NFlor As New List(Of String)
        Public EZuck As New List(Of Double)
        Public ESt As New List(Of Double)
        Public Arn As New List(Of Integer)
    End Class
 
    Public Class Startys
        Public SP_FlaDic As New List(Of Flys)
    End Class
 
    Private Sp As New Startys
 
    Private Sub testIt()
        Sp.SP_FlaDic.Add(New Flys())
 
        Sp.SP_FlaDic(0).Arn.Add(33)
    End Sub

        Sp.SP_FlaDic = New List(Of Flys)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist