Public Class frmPlayResults
 
    Dim dtPlayer As DataTable
    Dim bsPlayer As New BindingSource
    Dim WithEvents dgvPlayer As New DataGridView With {.Parent = Me, .Top = 10, _
      .Left = 10,
        .AllowUserToAddRows = False, .DataSource = bsPlayer}
 
    Private Function CreateColumns()
 
 
        If dtPlayer IsNot Nothing Then
            bsPlayer.DataSource = Nothing
            dtPlayer.Dispose()
            dtPlayer = Nothing
        End If
 
        dtPlayer = New DataTable
 
        With dtPlayer
            With .Columns
                .Add("Playername")
                .Add("IsCArdDealer", GetType(Boolean))
                .Add("Phase", GetType(Integer))
                .Add("Points", GetType(Integer))
            End With
            .PrimaryKey = { .Columns(0)}
        End With
 
        bsPlayer.DataSource = dtPlayer
 
        With dgvPlayer
            .Columns(0).ReadOnly = True
            .Columns("Phase").DefaultCellStyle.Alignment =
                DataGridViewContentAlignment.BottomRight
            .Columns("Points").DefaultCellStyle.Alignment =
                DataGridViewContentAlignment.BottomRight
        End With
    End Function
 
 
    Private Sub AddPlayer(ByVal Name As String)
        dtPlayer.Rows.Add(Name, False, 0, 0)
    End Sub
 
 
    Private Sub DeletePlayer(ByVal name As String)
 
        Dim dr As DataRow = dtPlayer.Rows.Find(name)
        If dr IsNot Nothing Then
            dtPlayer.Rows.Remove(dr)
        End If
    End Sub
 
 
    Private Sub frmPlayResults_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
        CreateColumns()
 
        'Vorbelegung
        AddPlayer("Person 1")
        AddPlayer("Person 2")
        AddPlayer("Person X")
        AddPlayer("Person 3")
 
        'Demo
        DeletePlayer("Person X")
 
    End Sub
 
    Private Sub Me_Resize(sender As Object, e As EventArgs) Handles Me.Resize
 
        With Me.ClientSize
            dgvPlayer.Width = .Width - 20
            dgvPlayer.Height = .Height - 30
        End With
    End Sub
End Class