[LoveVb]

يمكنك إضافة الاسم(Name) الى الليس بوكس بعد أنشاء الكائن برمجيا
او جلب جميع العناصر وإضافتها الى ListBox

كود :

ListBox1.Items.AddRange(Me.Controls.Cast(Of Control).Select(Function(itm) itm.Name).ToArray)

في الحدث SelectedIndexChanged للـ ListBox

كود :

Me.Controls.Cast(Of Control).Where(Function(itm) itm.Name = ListBox1.SelectedItem.ToString)(0).Text = "LoveVb"

أي استفسار تـفـضل