ListBox Kontrolüne Elemanlar Eklenmesi, Silinmesi ve İstenen Elemana Ulaşılması

Add Metodu: ListBox kontrolüne çok sayıda eleman eklerken, 

Dim i As Integer

Dim Basla, Bitir As Date

Dim Fark As TimeSpan

Basla = Now

ListBox1.BeginUpdate()

For i = 0 To 40000

  ListBox1.Items.Add(i)

Next

ListBox1.EndUpdate()

Bitir = Now

Fark = Bitir - Basla

Label1.Text =Fark.TotalMilliseconds.ToString