How to add spaces in a drop down list?

Benny1, I see what you are trying to do.  I prefer to puts the spaces to the left in order for the alignment to happen, but I made samples for both cases.

One other thing, remember to put the ComboBox font to Courier New or other fonts that have standard letter sizes... else it'd still look unaligned.

        '
        'ComboBox1
        '
        Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.ComboBox1.Font = New System.Drawing.Font("Courier New", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.ComboBox1.Location = New System.Drawing.Point(24, 24)
        Me.ComboBox1.Name = "ComboBox1"
        Me.ComboBox1.Size = New System.Drawing.Size(176, 22)
        Me.ComboBox1.TabIndex = 2

    Private Sub addItem(ByVal itemAdded As String)
        Dim iPadding As Integer = ComboBox1.Items.Count.ToString.Length()
        Dim iRemainder As Integer

        Dim splitString() As String
        Math.DivRem(ComboBox1.Items.Count, 10, iRemainder)
        If iRemainder = 0 Then
            Dim cbObjects(ComboBox1.Items.Count - 1) As Object
            Dim iInteger As Integer
            For iInteger = 0 To ComboBox1.Items.Count - 1
                splitString = Split(Trim(ComboBox1.Items.Item(iInteger).ToString), " ")
                Dim thisString As String = Trim(splitString(0)).PadLeft(iPadding, " ") & " " & splitString(1)
                cbObjects(iInteger) = thisString
            Next
            Me.ComboBox1.Items.Clear()
            Me.ComboBox1.Items.AddRange(cbObjects)

        End If
        ComboBox1.Items.Add(ComboBox1.Items.Count.ToString.PadLeft(iPadding, " ") & " " & itemAdded)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        addItem(Me.TextBox1.Text)
    End Sub
End Class

If you want it to the right... do this...

   Private Sub addItem(ByVal itemAdded As String)
        Dim iPadding As Integer = ComboBox1.Items.Count.ToString.Length()
        Dim iRemainder As Integer

        Dim splitString() As String
        Math.DivRem(ComboBox1.Items.Count, 10, iRemainder)
        If iRemainder = 0 Then
            Dim cbObjects(ComboBox1.Items.Count - 1) As Object
            Dim strPart1 As String
            Dim strPart2 As String
            Dim iInteger As Integer

            For iInteger = 0 To ComboBox1.Items.Count - 1
                Dim iSeparator As Integer = ComboBox1.Items.Item(iInteger).ToString.IndexOf(" ", 0)
                Dim curString As String = ComboBox1.Items.Item(iInteger)
                strPart1 = curString.Substring(0, iSeparator).Trim
                strPart2 = curString.Substring(iSeparator, curString.Length - iSeparator).Trim
                Dim thisString As String = strPart1.PadRight(iPadding, " ") & " " & strPart2
                cbObjects(iInteger) = thisString
            Next
            Me.ComboBox1.Items.Clear()
            Me.ComboBox1.Items.AddRange(cbObjects)

        End If
        ComboBox1.Items.Add(ComboBox1.Items.Count.ToString.PadLeft(iPadding, " ") & " " & itemAdded)
    End Sub

Hope this helps.