bu kod ile combobox a renk isim ve kodlarını alıyorum ama renkleri göremediğim için çok anlamlı olmuyor renkleri nasıl comboboxta görebilirim

Private Sub deneme2()
    Dim LastRow As Long
    Dim i As Long
    With BSComboBox1
        .ListWidth = 200
        .ListRows = 100
        .ColumnCount = 3
        .ColumnWidths = ";;0"
        .TextColumn = 3
       
        LastRow = Sheets("Colors").Cells(Rows.Count, "A").End(xlUp).Row
       
        For i = 1 To LastRow
            .AddItem Sheets("Colors").Range("B1:B100").Cells(i, 1).Value
            .List(.ListCount - 1, 1) = Sheets("Colors").Range("A1:A100").Cells(i, 1).Value
            .List(.ListCount - 1, 2) = .List(.ListCount - 1, 0) & vbTab & .List(.ListCount - 1, 1)
        Next i
    End With
End Sub