如何將ListBox中的Item可自由地改變上下位置?

Question

有一个简单的方法：
Option Explicit
Dim a As Integer
Dim b As Integer
    
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then a = List1.ListIndex
End SubPrivate Sub List1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim temp As String
    If Button = 1 Then
        b = List1.ListIndex
        If a <> b Then
            temp = List1.List(a)
            List1.List(a) = List1.List(b)
            List1.List(b) = temp
        End If
    End If
End Sub你是想要WINAMP那种效果的话，要在MOUSEDOWN里做点文章