Combobo DropDown Autosize based on item length.

[BrailleSchool]

Hi, all.

I am using a SQLDataReader to insert items into a Combobox from two different columns in the same table. Account Number and Account Name. There are four spaces between the Account Number and Account Name. The Account Number is a length of 9 characters and the max length of the Account Name is 50.

I have attempted to make sure the DropDown of the ComboBox auto sizes based on the longest item in the ComboBox, but I get no errors and it is not autosizing based on the longest item.

So, in short, the maximum characters for the items would be 63 characters.

This is what I have so far.

    Private Sub Combobox_DropDown(ByVal sender As Object, _
                                  ByVal e As System.EventArgs) Handles SubAccountOfAssets.DropDown, _
                                                                       SubAccountOfEquity.DropDown, _
                                                                       SubAccountOfExpense.DropDown, _
                                                                       SubAccountOfIncome.DropDown, _
                                                                       SubAccountOfLiability.DropDown

        AutoSizeComboboxDropDown(sender)
    End Sub

   Public Sub AutoSizeComboboxDropDown(ByVal CBName As Control)
        Try
            With CType(CBName, ComboBox)
                Dim Gfx As Graphics = .CreateGraphics
                Dim TheFont As Font = .Font
                Dim TheWidth As Integer = .DropDownWidth
                Dim ScrollBarWidth As Integer = IIf((.Items.Count > .MaxDropDownItems), SystemInformation.VerticalScrollBarWidth, 0)
                Dim TheItem As String

                For Each TheItem In .Items
                    Dim TheNewWidth As Integer = CInt(Gfx.MeasureString(TheItem, TheFont).Width) + ScrollBarWidth

                    If TheWidth < TheNewWidth Then
                        TheWidth = TheNewWidth
                    End If
                Next TheItem

                .DropDownWidth = TheWidth
            End With
        Catch CastEx As InvalidCastException
            MessageBox.Show(CastEx.ToString(), _
                            "Invalid Cast Exception", _
                            MessageBoxButtons.OK, _
                            MessageBoxIcon.Error, _
                            MessageBoxDefaultButton.Button1)

        End Try
    End Sub

Any suggestions or ideas as to why the DropDown for the ComboBox is not autosizing itself?