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

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

كود :

  Private Sub ListBox1_Click(sender As Object, e As EventArgs) Handles ListBox1.Click
       ListBox3.Items.Add(ListBox1.SelectedItem)
       Dim AA As Integer
       AA = ListBox1.SelectedIndex
       ListBox4.Items.Add(ListBox2.Items(AA))
   End Sub