Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Form2.Show()
        Form2.ListView1.Items.Add(Me.ListView1.SelectedItems(0).Text)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        With ListView1
            .View = View.Details
            .Columns.Add("EintragForm1", 130)
            .Items.Add("Eintrag1")
        End With
    End Sub
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        With ListView1
            .View = View.Details
            .Columns.Add("EintragForm2", 130)
        End With
    End Sub

fg viperbone