ReSorting Bound DataGridView

    Dim count As Integer = 1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '------------Bound--------------
        Dim DT As New DataTable
        DT.Columns.Add("ID", GetType(String))
        DT.Columns.Add("Name", GetType(String))

        For i = 0 To 9
            DT.Rows.Add("F-" & i + 1, Chr(i + 65))
        Next

        DGV.DataSource = DT
        '---------------------------------------

    End Sub
    Private Sub DGV_ColumnHeaderMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DGV.ColumnHeaderMouseClick
        Dim dt As DataTable
        Dim srtOrder As SortOrder

        If count Mod 2 Then

            dt = DirectCast(DGV.DataSource, DataTable).AsEnumerable.OrderByDescending(Function(r)
                                                                                          Return If(IsNumeric(r(0)), r(0), CInt(r(0).ToString.Replace("F-", Nothing)))
                                                                                      End Function).CopyToDataTable()
            count = 0
            srtOrder = SortOrder.Descending
        Else
            dt = DirectCast(DGV.DataSource, DataTable).AsEnumerable.OrderBy(Function(r)
                                                                                Return If(IsNumeric(r(0)), r(0), CInt(r(0).ToString.Replace("F-", Nothing)))
                                                                            End Function).CopyToDataTable()
            count = 1
            srtOrder = SortOrder.Ascending
        End If
        'r(0) = Column ID

        DGV.DataSource = dt
        DGV.Columns(0).HeaderCell.SortGlyphDirection = srtOrder
    End Sub