Private lstPerson As List(Of Person) = New List(Of Person)
Private p As Person

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    p = new Person()
    p.Naam = ...
    lstPerson.Add(p)
    ...
    'Tot er een aantal "Personen" inzitten"

    gridPersons.AutoGenerateColumns = False
    Dim cell = New DataGridViewTextBoxCell()
    cell.Style.BackColor = Color.White
    Dim col = New DataGridViewColumn()
    col.CellTemplate = cell
    col.HeaderText = "Voornaam"
    col.DataPropertyName = "Naam"
    gridPersons.Columns.Add(col)
    gridPersons.DataSource = lstPerson
End Sub

Private Sub gridCellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles gridPersons.CellClick
    If Not e.RowIndex.Equals(-1) Then
        p = CType(gridPersons.Rows(e.RowIndex).DataBoundItem, Person)
        txtNaam.Text = p.Naam
        txtPlaats.Text = p.Plaats
        txtJaar.Text = p.Jaar.ToString()
        txtGeslacht.Text = p.Geslacht
    End If
End Sub

Private lstPerson As List(Of Person) = New List(Of Person)
Private p As Person
 
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    p = new Person()
    p.Naam = ...
    lstPerson.Add(p)
    ...
    'Tot er een aantal "Personen" inzitten"
 
    gridPersons.AutoGenerateColumns = False
    Dim cell = New DataGridViewTextBoxCell()
    cell.Style.BackColor = Color.White
    Dim col = New DataGridViewColumn()
    col.CellTemplate = cell
    col.HeaderText = "Voornaam"
    col.DataPropertyName = "Naam"
    gridPersons.Columns.Add(col)
    gridPersons.DataSource = lstPerson
End Sub
 
Private Sub gridCellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles gridPersons.CellClick
    If Not e.RowIndex.Equals(-1) Then
        p = CType(gridPersons.Rows(e.RowIndex).DataBoundItem, Person)
        txtNaam.Text = p.Naam
        txtPlaats.Text = p.Plaats
        txtJaar.Text = p.Jaar.ToString()
        txtGeslacht.Text = p.Geslacht
    End If
End Sub