Private Sub cerca_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cerca.Click
Dim frm_schedine As New Form2
frm_schedine.Show()
        '******prendi dati dall'archivio*********
        If frm_schedine.DialogResult = DialogResult.OK Then
                Me.textbox1.text=frm_schedine.listview1.selectitems(0).text
                ecc....
        End if
End Sub()

Form2:

Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click
        Me.DialogResult = DialogResult.OK
        Me.Close()
        Me.Dispose
End Sub