Public Class FormChiamante
    Inherits Form

    Private Sub ButtonChiama_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ButtonChiama.Click
        'Imposta il Tag della form chiamata sulla form Chiamante
        'In modo che la form chiamata sappia su che Form deve
        'Impostare i dati
        Dim formChiamata As New FormChiamata()
        formChiamata.Tag = Me
        'Mostra la form
        formChiamata.Show()
        ''oppure
        'formChiamata.ShowDialog()
    End Sub

    Public Sub SetData(ByVal nome As String, ByVal cognome As String, ByVal luogo As String, ByVal dataNascita As String)
        'Imposta i valori delle textbox
        Me.TextBoxNome.Text = nome
        Me.TextBoxCognome.Text = cognome
        Me.TextBoxLuogo.Text = luogo
        Me.TextBoxDataNascita.Text = dataNascita
    End Sub

End Class

Public Class FormChiamata
    Inherits Form

    Private Sub ButtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOk.Click
        'All'evento click imposta i dati della form chiamante
        Dim chiamante As FormChiamante = Me.Tag
        'L'oggetto selezionato nella listview
        Dim item As ListViewItem = ListView1.SelectedItems(0)
        'Imposta i dati dall'oggetto delezionato
        'Presuppone che le colonne siano nome, cognome, luogo e data nell'ordine
        chiamante.SetData(item.Text, item.SubItems(1).Text, item.SubItems(2).Text, item.SubItems(3).Text)
        'Nasconde la form
        Me.Visible = False
        ''Se devi chiuderla usa
        'Me.Close()
    End Sub

End Class