vb.net DataGridView对列标题排序，每行代码注释

好的，下面是对列标题排序的代码，每行都有注释解释：

Private Sub SortColumnHeader(ByVal sender As Object, ByVal e As DataGridViewCellMouseEventArgs) Handles DataGridView1.ColumnHeaderMouseClick
    '获取当前点击的列
    Dim newColumnIndex As Integer = e.ColumnIndex
    '获取当前排序的列
    Dim oldColumnIndex As Integer = DataGridView1.Columns.Cast(Of DataGridViewColumn)().ToList().FindIndex(Function(c) c.HeaderCell.SortGlyphDirection <> SortOrder.None)
    '获取当前排序的方向
    Dim direction As SortOrder = If(oldColumnIndex = newColumnIndex AndAlso DataGridView1.Columns(oldColumnIndex).HeaderCell.SortGlyphDirection = SortOrder.Ascending, SortOrder.Descending, SortOrder.Ascending)
    '设置排序图标
    DataGridView1.Columns.Cast(Of DataGridViewColumn)().ToList().ForEach(Sub(c) c.HeaderCell.SortGlyphDirection = If(c.Index = newColumnIndex, direction, SortOrder.None))
    '根据当前列排序
    DataGridView1.Sort(DataGridView1.Columns(newColumnIndex), If(direction = SortOrder.Ascending, ListSortDirection.Ascending, ListSortDirection.Descending))
End Sub

这段代码的作用是：在 DataGridView 控件中对列标题进行排序。它通过监控鼠标点击事件来实现排序操作。具体实现逻辑如下：

1. 获取当前点击的列的索引。
2. 获取当前已经排序的列的索引和排序方向。
3. 根据当前点击的列的索引和排序方向，设置排序图标。
4. 根据当前点击的列和排序方向，对 DataGridView 进行排序。