drag and drop

[vosj]

Hi,

I've two arrays of labels (10x10).
The first one has different colors.
I want to drag and drop the colors to the second one.
The color in the first one should than turn to black.
The dragging is not the problem but turning the label in
the first array to black is.



Need this for an education program.

[HeSaidJoe]

'have no idea if you can use this but it should work

Assuming you have to click to drag
'capture the color of Label1(0) in x
x = Label1(0).BackColor
'change label1(0) to black
Label1(0).BackColor = vbBlack
on drop
Label1(5).backcolor = x