@nedo Eu m-am gandit la asta : Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged TextBox1.Text = ListBox1.SelectedItem Dim k As Integer = ListBox1.SelectedIndex TextBox2.Text = ListBox2.Items(k) End Sub Si merge!