Galera! Num tabuleiro de xadrez tem 64 imagens, uma para cada casa, quero mover uma peça de uma casa para outra qualquer e soltar na imagem casa destino do tabuleiro. Muito bem, ao usar o metodo drag na imagem de arrastar aparece um retangulo vazio, sem nada dentro, gostaria que aparecesse a peça simulando o meu movimento , junto com ponteiro do mouse.
Um detalhe, esta peça tem que ser bmp e não icone senão ai fica facil :)

Aguardo colaboração dos vbmaniacos
[]'s

Zardoz, se voce estiver usando Picture use essa codificacao:

 

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Public Sub ControlDrag(TheControl As Control)
    ReleaseCapture
    Call SendMessage(TheControl.hwnd, &HA1, 2, 0&)
End Sub

No evento MauseDown do Picture:
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ControlDrag Picture1
End Sub
 Valeu?

Faltou apenas a declaração do releasecapture()  mas encontrei e coloquei, funcionou bem!

Tenho só mais uma questão, quando eu soltar o picture(a peça) tenho que identificar sobre qual das 64 imagens (casas) ela foi solta (como se fosse uma peça) para saber a coordenada final do lance na imagem final, tentei o mouse up e não funcionou, tem alguma dica?