Ikon ved drag & drop i et Treeview

Hey

Når jeg flytter et element, i mit TreeView komponent, i runtime flytter jeg også samtidig rundt med TreeView boksen. I samme stil hvis man satte DragMode property til 1 - VbAutomatic.

Hvad kan jeg gøre så dette ikke sker.

Min kode ser således ud:

Private Sub TreeCategory_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = vbLeftButton Then ' Signal a Drag operation.
        mbIndrag = True ' Set the flag to true.
        TreeCategory.Drag vbBeginDrag ' Drag operation.
       
    End If

End Sub