listbox y textbox 
muy buenas comunidad estoy buscando una luz o ayuda que me ayude a despejar esta inquietud me podrian ayudar necesito k los elementos selecionados pasen a su respectivo txt.box en mi caso yo uso dos texbox pero asta ahora solo logro k cuando seleciono un elemento se envie el mismo elemto a los dos textbox
mi codigo es este
Dim i As Integer = ListBox2.SelectedIndex
TextBox1.Text = ListBox2.Items(i)
Dim a As Integer = ListBox2.SelectedIndex
TextBox2.Text = ListBox2.Items(a)
