For i As Int16 = 0 To dgvVisitenkarten.Columns.Count - 1
      Dim checkboxHeader As CheckBox = New CheckBox()
      checkboxHeader.Name = "cbo" & i
      checkboxHeader.Size = New Size(14, 20)
      checkboxHeader.Location = New Point(Pos, 4)
      dgvVisitenkarten.Controls.Add(checkboxHeader)
      Pos += dgvVisitenkarten.Columns.Item(i).Width
    Next