Der einfachste Weg ist der, eine Listbox in einem Formular zu positionieren, z.B. ListBox1 in UserForm1
und folgende Prozedur in das Klassenmodul ThisDrawing einzutragen
Sub ShowLayers()
UserForm1.ListBox1.Clear
For Each ActLayer In Layers
UserForm1.ListBox1.AddItem ActLayer.Name
Next
UserForm1.Show
Der bessere aber auch umfangreichere Weg ist die Erstellung einer Liste in einem ListView-Steuerelement. Dort könnstet Du dann auch die Eigenschaften der Layer darstellen lassen (EIN/AUS, frieren usw.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP