[3booody]

مثل ما تفضل به الاخوان الافاضل (ابو روضة , [b]علي بنيان) اسأل الله ان يبارك لهم عملهم ويديم مساعدتهم للجميع[/b]

[b]واضافة للموضوع حتى لايبقى سؤال لك[/b]
[b]اذا اردت تربط الاثنين معآ  لان الكود السابق يعمل على الليست الاولى فقط بينما اذا غيرت التحديد في اللست الثانية لاتتغير الاولى[/b]
[b]غير الكود بهذا الشكل وسيعمل معك ان شاء الله[/b]

كود :

Private Sub ListBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
   Handles ListBox1.SelectedIndexChanged, ListBox2.SelectedIndexChanged
       On Error Resume Next
       If sender Is ListBox1 Then
           ListBox2.SelectedIndex = ListBox1.SelectedIndex
       Else
           ListBox1.SelectedIndex = ListBox2.SelectedIndex
       End If
   End Sub

[b]الغاية من السطر On Error Resume Next[/b]
[b]حتى اذا كانت عدد العناصر اكبر من الثانية مايطلق البرنامج استثناء (خطأ)[/b]