[سميـر]

أشكرك أستاذي ابراهيم ايبو

فعلا اضافة الأسطر أدت لإطلاق الحدث، بارك الله فيكم

تم تعديل الكود ونجح الأمر
فقد تم نقل أسطر ربط أداة ListBox قبل أسطر الإضافة

فبقي سطر إلغاء الإختيار بوضع -1 للخاصية SelectedIndex فهي تطلق الحدث أيضا
فتم التغلب عليه بوضع شرط داخل الحدث ليتفقد قيمة SelectedIndex فإن كانت -1 يخرج من الحدث

الكود الأول بعد التعديل

كود :

Public Class Form1

   Dim dt As New DataTable

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       dt.Columns.Add("id", GetType(Integer))
       dt.Columns.Add("name", GetType(String))

       ListBox1.DataSource = dt
       ListBox1.ValueMember = "id"
       ListBox1.DisplayMember = "name"

       dt.Rows.Add(1, "Sameer")
       dt.Rows.Add(2, "Waleed")

       ListBox1.SelectedIndex = -1

   End Sub

   Dim i = 0
   Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
       If ListBox1.SelectedIndex = -1 Then Exit Sub
       i += 1
       Label1.Text = i
   End Sub

End Class

أشكرك أستاذي ابراهيم ايبو على مساعدتك
أشكرك أستاذي سعود على تفاعلك مع الموضوع