Mover items con el mouse manteniéndolo seleccionado

Tengo un listbox con cierta cantidad de items, ya he hecho la macro con botones para subir y bajar el item que tengo seleccionado, pero quiero hacer que mi formulario sea más practico, que dichos items los pueda bajar y subir manteniendo presionado el mouse y arrastrando el item hacia el lugar que quiero, es decir, si quiero bajar el item X a la 8 posicion, mantengo presionado el item X con el mouse y arrastrando el mouse hacia arriba lo subo hasta la octava posicion; de igual forma si lo quiero bajar de intentar. ¿Cómo podría hacerlo? ¿Se puede?