Rellenar región de color

[truskyvb]

He dado con una solución. La pongo por si le sirve a alguien.
Si teneis alguna idea mejor, os lo agradezco.

Detectar el color del pixcel sobre el que te mueves y a partir de ahí, poner una condiciíon.


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Picture2.BackColor = &H0& Then 'Color negro
Else
brush = CreateSolidBrush(CommonDialog1.Color)
SelectObject Me.hdc, brush
ExtFloodFill Me.hdc, X, Y, Me.Point(X, Y), FLOODFILLSURFACE
DeleteObject brush
End If
End Sub

'Para detectar el color del pixel
Private Sub form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Detecta el color del Pixel sobre el que estoy y pasa _
el valor al BackColor del Picture2
Dim Color As Long
Picture2.BackColor = Color
End Sub


Gracias y un saludo