Was heisst schon eleganter ? Dafür ist mein Quelltext auf die Schnelle wohl eher verständlich.
Allerdings : er ist zu starr. D.h., sofern eine Caption länger als 50 Zeichen ist, dann krachts. Man könnte den Wert nun hochschrauben, aber so was war moch nie mein Ding. Und siehe an : da ich das, wie gesagt in alle Forms eingebaut habe, mind. eine Caption war tatsächlich länger.
Konsequenz : lieber doch die AddObject Variante verwendet.