[3booody]

السلام عليكم ورحمة الله وبركاته
اذا الترتيب متساوي ممكن هشكل

كود :

   Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
       ListBox2.SelectedIndex = ListBox1.SelectedIndex
   End Sub