VB6 Drag Drop

[jonathan03]

I am making a checkers game with VB6. I have drawn the board with labels and the peices are image controls. Both are control arrays. How do I know which peice was moved? Here is my code to move a peice:

Private Sub lblSquare_OLEDragDrop(Index As Integer, Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
If lblSquare(Index).BackColor = &HFFFFFF Then 'make sure its not a white square
Exit Sub
End If
ImgRed(0).Left = lblSquare(Index).Left
ImgRed(0).Top = lblSquare(Index).Top
End Sub

lblSquare is the name of the control array for each of the squares on the checker board. Index contains the square the peice was moved to, but there are multiple peices. Any ideas on what I'm missing? Thanks for the help.