Spread7点击列头排序，怎样取消高亮？

收藏

Spread7点击列头排序，怎样取消高亮？

点击列头部进行排序，点击的列变成了高亮，用代码取消不了高亮，如图001.png
代码如下：
Private Sub FpSpread1_CellClick(sender As Object, e As CellClickEventArgs) Handles FpSpread1.CellClick
      If e.ColumnHeader = True Then
         Dim sortinf(0) As SortInfo
         sortinf(0) = New SortInfo(1, True)
         FpSpread1.ActiveSheet.SortRows(0, FpSpread1.ActiveSheet.RowCount, sortinf)
         FpSpread1.ActiveSheet.ClearSelection()
      End If
End Sub

我想实现的效果是，点击列头进行排序，然后用代码取消高亮，这个怎么实现？
如图002.png