كود تلوين جميع العناصر المرسومة بالأوتوكاد

[اسلام الكبابى 17]

لى سؤال بسيط بعد ربط الأوتوكاد بالفيجوال بيسك6
ما هو الكود اللازم بعد رسم المستخدم أى عناصر فى صفحة الأوتوكاد ثم ضغطه على زر معين فى صفحة الفيجوال بيسك
كى يتم تلوين جميع العناصر المرسومة باللون الأخضر مثلآ
ولكم ألف شكر

[اسلام الكبابى 17]

هذا كود منقول من أحد المواضيع

Private Sub Command1_Click()
Dim newssett As AcadSelectionSet
Dim obj3 As AcadEntity
Set newssett = acadapp.ActiveDocument.SelectionSets.Add("kkkkk")
newssett.SelectOnScreen

For Each obj3 In newssett
obj3.Color = acGreen
Print "  obj3.Color= "; obj3.Color
Next obj3
 
acadapp.ActiveDocument.SelectionSets.Item("kkkkk").Delete
 Rem"الجملةالسابقة حتى لا يحدث خطأ واعتراض من البرنامج اذا ضغط المستخدم على هذا الزر مرة أخرى ليعرف خصائص مجموعةأخرى من العناصر"
300 End Sub

ولكنه لا يقوم بتلوين جميع العناصر المرسومة باللون الأخض
انما يطلب منى أن أختار بعض العناصر فيقوم بتلوينها
أرجو تعديل هذا الكود ليقوم بتلوين جميع العناصر المرسومة
ولكم ألف شكر