Simulate color picker

Hi, I need help

I'm trying to simulate the color picker, but I was not able to give the colors to the items in the list.

I've this:

This is my code:

Private Sub UserForm_Initialize()

PaletteList.Clear
ColorList.Clear

Dim CSPalette As Palette
Dim CSColor As Color
Dim NColor As String

For Each CSPalette In Application.Palettes
PaletteList.AddItem CSPalette.Name
Next CSPalette

For Each CSColor In Palettes("Paleta RGB predeterminada").Colors
NColor = CSColor.Name
ColorList.AddItem NColor
Next

End Sub

thanks..