Drag & Drop TabControl

Bonjour,
Je voudrais faire un drag and drop de tabpages dans un tabcontrol mais même avec les exemples je n'y arrive pas. J'ai toujours un interdit qui se ballade quand j'essaye de glisser ma tab et du coup pas de drop possible.
J'ai mis les propriétés allowdrop de mes tabpages et de mon tabcontrol à true mais pas mieux. Je suis donc reparti d'un exemple basique mais toujours pas. Si vous voyez ce que j'ai oublié.

Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public Shared Sub Onglet_Mouse_Down(ByVal sender As System.Object, ByVal e As MouseEventArgs) MouseIsDown = True End Sub   Public Shared Sub Onglet_Mouse_Up(ByVal sender As System.Object, ByVal e As MouseEventArgs) MouseIsDown = False End Sub   Public Shared Sub Onglet_Mouse_Move(ByVal sender As System.Object, ByVal e As MouseEventArgs) Dim controleur As TabControl = sender Dim onglet As TabPage = controleur.SelectedTab If MouseIsDown Then controleur.DoDragDrop(onglet, DragDropEffects.Move) End If MouseIsDown = False End Sub

---