Elemente in Abfrage zusammenfassen

[Opa Knack]

Hallo,

auf einer Form sind 21 Shapes verteilt. Diese können teilweise interagieren, jeweils abhängig von der Quelle. Dies sieht dann zum Beispiel so aus, dass die Shapes01 bis 10 auf Shape21 gezogen werden können (DnD), die Shapes 11-20 jedoch nicht.

Ich müßte also eine Abfrage in die Drop-Prozedur einbinden, mit der die Quelle selektiert wird. Bevor ich nun ...

if (Sender = Shape01) or (Sender = Shape02) or (Sender = Shape03) or ... ...schreibe, wäre es natürlich praktischer, wenn ich dies in der Form

if (Sender = Shape01 ... 10) then umsetzen könnte. Nur leider bekomme ich das nicht hin.

Hat jemand eine Idee, wie das ginge?

Danke
Opa