[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
تفضل الكود مشروح

كود :

 Dim kk As Integer = 0 ' تعريف متغير رقمي ليحمل رقم الاندكس للعنصر

   Private Sub ListBox1_Click(sender As Object, e As EventArgs) Handles ListBox1.Click
       kk = ListBox1.SelectedIndex ' اسناد الاندكس الخاص بالعنصر المختار الى المتغير الرقمي
       TextBox1.Text = ListBox1.SelectedItem ' عرض العنصر في مربع النص
   End Sub
   '   في زر بوتون يضاف بعد التعديل
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       ListBox1.Items.RemoveAt(kk) ' حذف العنصر القديم
       ListBox1.Items.Insert(kk, TextBox1.Text) ' اضافة العنصر بعد التعديل بدلالة رقم الاندكس
   End Sub