[color=Blue]Private Sub[/color] ListBox1_SelectedIndexChanged([color=Blue]ByVal[/color] sender [color=Blue]As[/color] System.Object, [color=Blue]ByVal[/color] e [color=Blue]As[/color] System.EventArgs) [color=Blue]Handles[/color] ListBox1.SelectedIndexChanged
[color=Blue]Me[/color].TextBox1.Text = [color=Blue]Me[/color].ListBox1.SelectedItem
[color=Blue]End Sub[/color]