Private Sub ListBox1_SelectedValueChanged(ByVal sender As System.Object, ByVal _
  e As System.EventArgs) Handles ListBox1.SelectedValueChanged
        If ListBox1.SelectedIndex <> -1 Then
            textBox1.Text = ListBox1.SelectedValue
        End If
    End Sub