خاصیت آرایه‌ای برای یوزرکنترل

[mojtabamalaekeh]

میخوام یک UserControl درست کنم که بتونم Item هاش رو Add و Remove کنم.
مثال:

کد php:

UC1.Items.Add "Link1" 


یک Item با عنوان Link1 اضافه میشه.

بعد باید بتونم بوسیله عنوانش بهش دسترسی پیدا کنم:

کد php:

UC1.Items("Link1").Font.Bold = True
UC1.Items("Link1").Picture = Picture1.Picture 


یا از طریق ایندکسش بهش دسترسی پیدا می کنم:

کد php:

UC1.Items(UC1.Items.Count - 1).Font.Bold = True
UC1.Items(UC1.Items.Count - 1).Picture = Picture1.Picture 


رویدادش رو هم بلدم بنویسم:

کد php:

Public Event ItemClicked(Index As Integer)

Private Sub lblItem_Click(Index As Integer)
    RaiseEvent ItemClicked(Index)
End Sub

Private Sub lblImage_Click(Index As Integer)
    RaiseEvent ItemClicked(Index)
End Sub 


ضمنا Item های این UserControl شامل یک عنوان و یک تصویر هستند.
هر Item بطور جداگانه تصویر و عنوان و فونتش قابل تنظیمه.
خود UserControl هم خواصی مثل عنوان (Header) و رنگ زمینه و ... داره.
البته اینا مهم نیستند. مهم اینه که بتونم خاصیتی رو با کدنویسی ایجاد کنم که خود اون خاصیت اولاً دارای رویداد و خواص دیگه ای باشه که بعد از تایپ نقطه ظاهر بشن و دوماً آرایه ای باشه. مثل عکس.



کدنویسی با VB6.0 انجام میشه.

خیلی ممنون میشم اگه کسی بتونه جوابم رو بده.