如何对两个可以相互移动项目的Excel用户表单ListBoxes进行排序

Private Sub SortButton_Click()
    Dim ListBox1Items() As Variant
    Dim ListBox2Items() As Variant
    Dim i As Long, j As Long
    Dim temp As Variant
    
    ' 获取ListBoxes1的选中项
    ReDim ListBox1Items(ListBox1.ListCount - 1)
    For i = 0 To ListBox1.ListCount - 1
        ListBox1Items(i) = ListBox1.List(i)
    Next i
    
    ' 获取ListBoxes2的选中项
    ReDim ListBox2Items(ListBox2.ListCount - 1)
    For i = 0 To ListBox2.ListCount - 1
        ListBox2Items(i) = ListBox2.List(i)
    Next i
    
    ' 对ListBoxes1的选中项进行排序
    For i = LBound(ListBox1Items) To UBound(ListBox1Items) - 1
        For j = i + 1 To UBound(ListBox1Items)
            If ListBox1Items(i) > ListBox1Items(j) Then
                temp = ListBox1Items(i)
                ListBox1Items(i) = ListBox1Items(j)
                ListBox1Items(j) = temp
            End If
        Next j
    Next i
    
    ' 对ListBoxes2的选中项进行排序
    For i = LBound(ListBox2Items) To UBound(ListBox2Items) - 1
        For j = i + 1 To UBound(ListBox2Items)
            If ListBox2Items(i) > ListBox2Items(j) Then
                temp = ListBox2Items(i)
                ListBox2Items(i) = ListBox2Items(j)
                ListBox2Items(j) = temp
            End If
        Next j
    Next i
    
    ' 清空ListBoxes1和ListBoxes2
    ListBox1.Clear
    ListBox2.Clear
    
    ' 将排序后的项添加到ListBoxes1和ListBoxes2
    For i = LBound(ListBox1Items) To UBound(ListBox1Items)
        ListBox1.AddItem ListBox1Items(i)
    Next i
    
    For i = LBound(ListBox2Items) To UBound(ListBox2Items)
        ListBox2.AddItem ListBox2Items(i)
    Next i
End Sub