[amedo]

كود :

Dim theListBox As ListBox = CType(sender, ListBox)

كود :

Dim itemString As String = CType(theListBox.Items(e.Index), String)

كود :

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

اولا شكراً على ردك .
ثانيا انا اطل حفظ ما في ListView وليس ListBox