ReSorting UnBound DataGridView

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        '----------UnBound----------
          Dim a, b As New DataGridViewTextBoxColumn
          a.HeaderText = "ID"
          b.HeaderText = "Name"
          DGV.Columns.Add(a)
          DGV.Columns.Add(b)
          For i = 0 To 9
              DGV.Rows.Add("F-" & i + 1, Chr(i + 65))
          Next
        '------------------------------

    End Sub
    Private Sub DGV_SortCompare(sender As Object, e As DataGridViewSortCompareEventArgs) Handles DGV.SortCompare
          If e.Column.Index = 0 Then
             Dim a As Integer = Integer.Parse(e.CellValue1.ToString().Replace("F-", Nothing))
             Dim b As Integer = Integer.Parse(e.CellValue2.ToString.ToString().Replace("F-", Nothing))
             e.SortResult = a.CompareTo(b)
             e.Handled = True
          End If
    End Sub