Private Sub DataGrid1_MouseDown(ByVal sender As Object, ByVal e As _
    MouseEventArgs) Handles DataGrid1.MouseDown
        Dim myGrid As DataGrid = CType(sender, DataGrid)
        Dim hti As System.Windows.Forms.DataGrid.HitTestInfo
        Dim zeile As Byte
 
        hti = myGrid.HitTest(e.X, e.Y)
        If hti.Type = DataGrid.HitTestType.Cell Then
            zeile = hti.Row 'gewählte Zeile
 
            'Form aus Tabelle öffnen
            Dim nextchild As New Form()  'Anstelle von From() müste hier der 
            ' Name aus der Liste stehen, oder?
            nextchild = DataTable1.Rows(zeile)(4) 'In Spalte 4 der Zeile steht 
            ' der Name des neuen Forms. 
            nextchild.Show() 'Form anzeigen
            nextchild.Dock = DockStyle.Fill
        End If
    End Sub