请问 Listview排序时在列标题处显示箭头的有关问题

请教 Listview排序时在列标题处显示箭头的问题
平常看见很多软件,   比如   Outlook,   在单击列标题排序时,   会出现▲或▼的箭头图标,   请教能否在   Listview   中实现这一功能?
自己试过了排序时改变列标题   (原列标题加上箭头符号),   但效果很不好,   请大家指点一下更好的方法,   谢谢.


[解决办法]

http://www.atlab.cn/down/lvColumnIcon.rar (2kb)

Private Sub Form_Load()
With ListView1
.View = lvwReport
.ColumnHeaders.Add
End With
End Sub

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
If ColumnHeader.Icon = 1 Then
ColumnHeader.Icon = 2
Else
ColumnHeader.Icon = 1
End If
End Sub

[解决办法]
列头的图标