[KamelArab]

السؤال هو
عندي متغيرات ثابتة  ولها قيم ثابته معرفة بالتالي على النحو التالي:-
Const HZ2="123456"
Const HZ4="654560"
"Const HZ6="01010111
هذه الثوابت موجودة في قسم التصاريح العام
هذه المتغيرات بشكل تسلسلي زوجي تصل لحدود HZ900
عندي تكست بوكس وليست بوكس
أريد تعبئة لليست بوكس بهذه الثوابت
وأريد عند الضغط على اليست أن يضع في التكست بوكس قيمة الثابت وليس إسمه
وضعت كود ولكن الشائبة أن يظهر فقط إسم الثابت ولا تظهر قيمته في التكست بوكس
Dim i As Integer
For i = 0 To 899 Step 2
List1.AddItem "HZ" & i
Next i
الشائبة تظهر إٍسم المتغير الثابت ولا تظهر قيمته
الرجاء كود يصحح هذه الشائبة أو أن هناك خطىء ما