MaxDropDownItems of Datagridview Not Working?

Good day

My MaxDropDownItems of a DataGridViewComboBoxColumn is not working.

See my code blow?

Private Sub SetupPorsionsGrid()
        Dim colPorsionDescription As System.Windows.Forms.DataGridViewTextBoxColumn
        Dim colPorsionToSelect As System.Windows.Forms.DataGridViewComboBoxColumn
 
        colPorsionDescription = New System.Windows.Forms.DataGridViewTextBoxColumn
        colPorsionToSelect = New System.Windows.Forms.DataGridViewComboBoxColumn
 
        colPorsionDescription.ReadOnly = True
        colPorsionDescription.CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        colPorsionToSelect.CellTemplate.Style.Padding = New Padding(5, 11, 5, 11)
 
        colPorsionToSelect.Width = 120
        colPorsionToSelect.DropDownWidth = 80
        colPorsionToSelect.MaxDropDownItems = 3
        colPorsionToSelect.FlatStyle = FlatStyle.Flat
 
        lblSelectPorsionsCaption.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
 
        With grdPorsions
            .DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
            .BorderStyle = BorderStyle.Fixed3D
            .BackgroundColor = Color.OldLace
            .SelectionMode = DataGridViewSelectionMode.CellSelect
            .DefaultCellStyle.BackColor = Color.White
            .DefaultCellStyle.SelectionBackColor = Color.White
            .DefaultCellStyle.SelectionForeColor = Color.Black
            .MultiSelect = False
            .EditMode = DataGridViewEditMode.EditOnEnter
            .RowHeadersVisible = False
            .ColumnHeadersVisible = False
            .Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {colPorsionDescription, colPorsionToSelect})
            .ScrollBars = ScrollBars.None
 
            .Columns(0).Width = 272
            .Columns(1).Width = 120
            .AllowUserToAddRows = False
            .AllowUserToResizeColumns = False
            .AllowUserToResizeRows = False
            For iRowCount = 0 To 4
                .Rows.Add()
                .Rows(iRowCount).MinimumHeight = 47
            Next iRowCount
 
            .Rows(0).Cells(0).Value = "Item 1 : "
            .Rows(1).Cells(0).Value = "Item 2 : "
            .Rows(2).Cells(0).Value = "Item 3 : "
            .Rows(3).Cells(0).Value = "Item 4 : "
            .Rows(4).Cells(0).Value = "Item 5 : "
            Dim DropDownColumn As DataGridViewComboBoxColumn
            DropDownColumn = grdPorsions.Columns(1)
            For i = 0 To 200
                DropDownColumn.Items.Add(i & "")
                DropDownColumn.DisplayMember = i & ""
                DropDownColumn.ValueMember = i & ""
            Next
 
        End With
 
    End Sub

Select allOpen in new window