请教个Listview排序的问题

Question

’现在点击后只能显示图标在标题上，却不能排序。请教下如何解决？
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As ColumnHeader)
  
  With ListView1
  
    If (.SortKey = ColumnHeader.Index - 1) Then
      ColumnHeader.Tag = Not Val(ColumnHeader.Tag)
    End If
    
   .SortOrder = Abs(Val(ColumnHeader.Tag))
  
    .SortKey = ColumnHeader.Index - 1  
  Call m_cHdrIcons.SetHeaderIcons(.SortKey, .SortOrder)
  
  End With
End Sub

Answer 1

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As ColumnHeader)
  
  With ListView1
  
    If (.SortKey = ColumnHeader.Index - 1) Then
      ColumnHeader.Tag = Not Val(ColumnHeader.Tag)
    End If
    
   .SortOrder = Abs(Val(ColumnHeader.Tag))
  
    .SortKey = ColumnHeader.Index - 1
    .Sorted = True'加这一句即可
  
  Call m_cHdrIcons.SetHeaderIcons(.SortKey, .SortOrder)
  
  End With
End Sub