drag and drop entre 2 MsFlexgrid

Bonjour a tous,
J'utilise se code pour débuter le drag and drop entre 2 MsFlexgrid. Le dragMode est a manuel.

msfListeEpicerie_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbRightButton And Index = 1 Then
        With msfListeEpicerie(1)
            .Drag vbBeginDrag
            .DragIcon = LoadPicture(App.Path & "\DRAG2PG.ICO")
        End With
        Exit Sub
    End If
    ...
end sub

Mon problème est que la première fois que je clique sur le msfListeEpicerie(1), au lieu de mon image comme curseur, j'ai le contour du contrôle. Je relâche le bouton de la souris, je ré-appuis dessus et cette fois j'ai mon image qui apparais. J'aimerais que mon image apparaisse dé la première fois.

Merci de m'aider