ListView 排序问题？

Question

本人在开发一个软件时，需要实现类似windows资源管理器的功能，参考了delphi Demo自带的Virtual ListView例子，可以实现，就是没有排序功能，在网上搜了半天，在大富翁论坛上找到如下文档：http://www.delphibbs.com/delphibbs/dispq.asp?lid=1606415
说虚拟listview和排序是鱼翅和熊掌，本人也试了一下，无法排序，望高手赐教！

Answer 1

Private Sub lv_1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)    With lv_1
        If (ColumnHeader.index - 1) = .SortKey Then
            .SortOrder = (.SortOrder + 1) Mod 2
            .Sorted = True
        Else
            .Sorted = False
            .SortOrder = 0
            .SortKey = ColumnHeader.index - 1
            .Sorted = True
        End If
    End WithEnd Sub

Answer 2

已解决,采用第三方控件diskControl,很容易实现

Answer 3

我做了个Listview排序的 例子要的Me我