[VB6DAO]

كود :

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    ListBox2.[color=#FF0000]SelectedIndex [/color]= ListBox1.SelectedIndex
    ListBox3.[color=#FF0000]SelectedIndex [/color]= ListBox1.SelectedIndex
    TextBox1.Text = ListBox1.SelectedItem &[color=#FF0000] " " & [/color]ListBox2.SelectedItem &[color=#FF0000] " " & [/color]ListBox3.SelectedItem
End Sub