Visual Basic - Colores Personalizados!!!!!! HELP!

Nesecito pintar en un Pic la gama entera de colores y poder extraer de el un color clickeando en un sector, colo el cuadro de dialogo del paint de colores personalizados....

El problema es el desafio matematico de insertar en coordenadas X,Y de un pic una gama de colores de 3 variables R , G, B....

a alguien se le ocurre algo??

¿Has intentado usar una matriz de controles?

No no lo he intentado como lo hago?

Espero que esto te sirva

crea un picturebox con la gama y un shape

Option Explicit

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

Dim MDown As Boolean
Dim LaBrush As BrushStyle

Private Sub Form_Load()
ShapeColor.BackColor = vbHighlight
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim R As Integer
Dim G As Integer
Dim B As Integer
Dim PixCol As Long

PixCol = GetPixel(Picture1.hdc, X, Y)

'Convert to RGB
R = PixCol Mod 256
B = Int(PixCol / 65536)
G = (PixCol - (B * 65536) - R) / 256

If R < 0 Then R = 0
If G < 0 Then G = 0
If B < 0 Then B = 0

ShapeColor.BackColor = RGB(R, G, B)

MDown = True

End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If MDown Then Picture1_MouseDown Button, Shift, X, Y
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDown = False
End Sub