Dim OTs As New ArrayList
        OTs.Add(New OTValues(5, 3, 4))
        OTs.Add(New OTValues(4, 6, 7))
 
        Dim XYZ As OTValues = OTs(1)
        MsgBox(XYZ.X.ToString)

        Dim OTs As New Hashtable
 
        OTs.Add("Obj1", New OTValues(5, 3, 4))
        OTs.Add("Obj2", New OTValues(4, 6, 7))
 
        Dim XYZ As OTValues = OTs("Obj2")
        MsgBox(XYZ.X.ToString)

________
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