'Aufruf der Form2 aus der Form1
Private Sub cmd_Person1_Click()
    TB_Person1.SetFocus
    Form2.Show
End Sub
 
 
'Form2
Public MyControl1 As Control ' Globale Variable
'...
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    Set MyControl1 = Form1.ActiveControl
    MyControl1.Value = Strings.Left(ListView1.SelectedItem, 20) & "."
    On Error Resume Next
    Form2.Hide
End Sub

'Form1
Private Sub cmd_Pers1_Click(sender As System.Object, _
e As System.EventArgs) Handles cmd_Pers1.Click
    TB_Pers1.Focus()
        Dim FormInfo As New Form2
        FormInfo.StartPosition = Forms.FormStartPosition.CenterScreen
        FormInfo.ShowDialog()
    End Sub
 
'Form2
Public MyControl As Control
'...
Private Sub DataGridView1_CellClick(sender As System.Object, _
e As System.Windows.Forms.DataGridViewCellEventArgs) Handles _
DataGridView1.CellClick
    MyControl = Form1.ActiveForm.ActiveControl
    MyControl.Text = DataGridView1.Rows(e.RowIndex).Cells( _
      e.ColumnIndex).Value.ToString
 
    MsgBox(DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value)
    Me.Hide()
End Sub

mfg.

Dirk