'FORM1
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'Employees aus Datenquellen ohne Detailseigenschaft, damit wird eine 
        ' Tabelle angezeigt.
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
        ' "NorthwindDataSet.Orders". Sie können sie bei Bedarf verschieben oder 
        ' entfernen.
        Me.OrdersTableAdapter.Fill(Me.NorthwindDataSet.Orders)
        'Orders aus Datenquellen mit der Eigenschaft Details, damit wird ein 
        ' Datensatz in mehreren Textboxen angezeigt.
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
        ' "NorthwindDataSet.Employees". Sie können sie bei Bedarf verschieben 
        ' oder entfernen.
        Me.EmployeesTableAdapter.Fill(Me.NorthwindDataSet.Employees)
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        'In der Tabelle Employees einen Datensatz auswählen und hier übergeben.
        Dim F2 As New Form2()
        F2.ShowDialog(Me) ' Show the second form
        EmployeeIDTextBox.Text = F2.myEmployee()
    End Sub
End Class
 
'FORM2
 
Public Class Form2
    Shared employeeID As Integer
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
        ' "NorthwindDataSet.Employees". Sie können sie bei Bedarf verschieben 
        ' oder entfernen.
        Me.EmployeesTableAdapter.Fill(Me.NorthwindDataSet.Employees)
    End Sub
    Public ReadOnly Property myEmployee() As Integer
        Get
            Return employeeID
        End Get
    End Property
 
    Private Sub EmployeesDataGridView_CellDoubleClick(ByVal sender As _
      System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) _
      Handles EmployeesDataGridView.CellDoubleClick
        'Tabelle anzeigen und per Doppelklick den gewünschten Datensatz 
        ' auswählen, Datensatz für die Übergabe vorbereiten.
        If Me.EmployeesDataGridView.SelectedRows.Count > 0 Then
            employeeID = CInt(Me.EmployeesDataGridView.CurrentRow.Cells( _
              0).Value)
            Me.DialogResult = Windows.Forms.DialogResult.OK
        End If
    End Sub
End Class