مشكلة في صنع circualar progressbar

السلام عليكم و رحمة الله و بركاته

اخوتي الافاضل

كنت ابحث في هذا المنتدى عن circular progressbar و الحمد لله وجدت مشاركة الاخ الفاضل hichamchak على هذا الرابط

http://www.arabteam2000.com/forums/index.p...ular+progresbar

الاخ الفاضل -جزاه الله خيرا- ارفق مثالا فيه عدة اشكال, فقمت باختيار الشكل المناسب للبرنامج الذي اعمل فيه

لكن ظهرت لي مشكلة عند تشغيل البرنامج و هي

Method or data not defined

على UBound في هذا الكود

Private Sub tmr_Timer()
Dim iLoop As Integer
Static iValue As Integer
    iValue = (iValue + 1) Mod 101
    For iLoop = 0 To CProg1.UBound

        CProg1.Value = iValue
    Next iLoop
End Sub

فما الحل؟؟؟

اختكم مَيمنة

circular_progressbar.rar