Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.ListView1.Items.Add("Ciao")
        Me.ListView1.Items.Add("straccio")
        Me.ListView1.Items.Add("pacchio")
        Me.ListView1.Items.Add("puffo")
        Me.ListView1.Items.Add("bello")
        Me.ListView1.Items.Add("ciccio")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.ListView2.Items.Add(Me.ListView1.Items.Item(Me.ListView1.FocusedItem.Index).Text)

    End Sub