Private Sub ListView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles ListView1.SelectedIndexChanged
        Dim lsvItem As ListViewItem
           For Each lsvItem In ListView1.SelectedItems
            TextBox1.Text = lsvItem.Text
        Next
    End Sub