Klasse in Collection in Array

Ich habe einen 1-Dimensionalen Array erstellt. In diesen fülle ich Collections, deren Struktur durch Klassen bestimmt wird.
Bsp:

Dim MyArray(5) as Collection
Dim Test as New clsCol (Klasse mit Get- und Let-Properties)

Füllen des Arrays:
Test.Name = „Hallo“
Test.Pic = „C:\Hallo.jpg“
Test.X = 34
Test.Y = 45
MyArray(3).Add = Test, Test.Name

Auf die Werte zugreifen:
Da ich nicht jedesmal den Namen benötige, übergebe ich, welchen Wert ich benötige. (Auswahl durch Select Case)

Ich möchte jedoch dieses Select Case eliminieren.
Bsp:

Function GetItem(intArr As Integer, strWitch as string, objClassEntry ) as Variant
GetItem = MyArray(intArr).Item(strWitch). objClassEntry (Oder so Ähnlich…)
End Function

Anstatt:
Function GetItem(intArr As Integer, strWitch as string, strClassEntry as string) as Variant
Select Case strClassEntry
case „Name“
GetItem = MyArray(intArr).Item(strWitch).Name
Case „Pic“
GetItem = MyArray(intArr).Item(strWitch).Pic
End Select
End Function

Sorry, Properties können meines Wissens nicht via String-Variablen angesprochen werden. Aber vielleicht haben sie einen Index (Pic=0, Name=1, etc)? Wenn keinen, dann deklariere einen Typ anstatt einer Collection…

Oder für jede Property eine eigene Function?

Hmm, mehr fällt mir momentan auch nicht ein.

F:\>Stefan

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Vielleicht noch eine kleine Erweiterung

Nicht funktionierende Idee: Ähnlich wie Me.Controls(strMyObject) um Objekte auf einem Form anzusprechen

In C/C++ ist mein Problem mit Hilfe von Pointern lösbar.

Sorry, Properties können meines Wissens nicht via
String-Variablen angesprochen werden. Aber vielleicht haben
sie einen Index (Pic=0, Name=1, etc)? Wenn keinen, dann
deklariere einen Typ anstatt einer Collection…

Mit einer Type-Deklaration funktionierts überhaupt nicht (War mein erster Lösungsansatz)

Oder für jede Property eine eigene Function?

Da erscheint Select Case gleich viel angenehmer

Hmm, mehr fällt mir momentan auch nicht ein.

F:\>Stefan

Danke für Deine Hilfe

cu
Patrik