VBA能实现对listbox的拖拽排序吗？

在一个listbox里面有很多行，可以选中一行然后对其进行拖拽，最后再进行排序。
排序这个对我来说，还比较好做，就是拖拽这一块，不知道怎么下手。
求教各位大神，VBA能实现listbox的拖拽吗？
--------------------编程问答-------------------- 動態拖曳ListBox Item位置: --------------------编程问答-------------------- 動態拖曳ListBox Item位置

补充：VB ,  VBA