Private Sub btnSearch_Click(...)
Dim frm As New Form2
frm.ShowDialog
If frm.DialogResult = DialogResult.OK Then
Me.FName1.Text = frm.FName2.Text
End If
End Sub
Form2
Private Sub btnSelect_Click(...)
Me.DialogResult = DialogResult.OK
Me.Close()
End Sub