[Blue Sky]

كود :

ListBox1.BeginUpdate()


Dim x As Integer
For x = 1 To 4999
    ListBox1.Items.Add("Item " & x.ToString())
Next x


ListBox1.EndUpdate()

سنقوم باضافة 4999 عنصر داخل الأداة ListBox1


قمنا بعمل حلقة For دليلها متغير اسمه X

وجعلنا الخاصية Add التابعة للخاصية Item تقوم بالاضافة باسم العنصر عبارة عن كلمة Item بجانب رقم الدليل الحالي للحلقة For


ولكن دائما ما ننصح باستخدام الخاصية BeginUpdate لتعلم المترجم أنه بدأ التحديث

والخاصية EndUpdate لتعلم المترجم أنه انتهى التحديث