Riordinare manualmente con il mouse gli elementi di una ListBox

In questo caso non si intende spostare e interscambiare un elemento della ListBox con un altro, bensì spostare un elemento con il mouse riordinando a piacere gli elementi.

Mostriamo un esempio pratico usando la modalità del Drag&Drop:

Public Sub Form_Open()

 With ListBox1
   .Drop = True
   .List = ["aaaa", "bbbb", "cccc", "dddd", "eeee"]
 End With

End

 
Public Sub ListBox1_MouseDrag()

 ListBox1.Drag(ListBox1.Text, "text/html")

End 


Public Sub ListBox1_Drop()

 Dim n, c As Byte
 Dim ss As String[]

 n = Fix(Drag.Y / (ListBox1.ScrollH / ListBox1.Count))
 ss = ListBox1.List

 ss.Add(Drag.Data, n)
 c = ListBox1.Index

 If ListBox1.Index > n Then c = ListBox1.Index + 1 
 ss.Remove(c, 1)
 ListBox1.List = ss

End