データグリッドビューのチェックボックスについて

Public Class Form1

    Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        With dgv
            .AllowUserToAddRows = False
            .Columns.Add(New DataGridViewCheckBoxColumn() With {.HeaderText = "check",
                                                                .Name = "column1"})
            .Columns.Add("column2", "text1")
            .Columns.Add("column3", "text2")
            .Rows.Add(False, "A1", "B1")
            .Rows.Add(False, "A2", "B2")
            .Rows.Add(False, "A3", "B3")
        End With
        AddHandler dgv.CurrentCellDirtyStateChanged, AddressOf dgv_CurrentCellDirtyStateChanged
        AddHandler dgv.CellValueChanged, AddressOf dgv_CellValueChanged
    End Sub

    Sub dgv_CurrentCellDirtyStateChanged(ByVal sender As Object, ByVal e As EventArgs)
        If dgv.CurrentCellAddress.X = 0 AndAlso dgv.IsCurrentCellDirty Then
            dgv.CommitEdit(DataGridViewDataErrorContexts.Commit)
        End If
    End Sub

    Sub dgv_CellValueChanged(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs)
        dgv.SuspendLayout()
        If e.ColumnIndex = 0 Then
            For Each row As DataGridViewRow In dgv.Rows
                row.Selected = CBool(row.Cells(0).Value)
            Next
        End If
    End Sub

End Class

質問を読むと、どこまでできているのかよくわからないのですが…。
2.チェックボックスにチェックを複数入れた状態で削除のボタンをクリックした時に削除できるようにしたい。
の方は以下でできると思います。(同じようなことをやっていて他の方に教えていただいたのですが・・。)

Private Sub ButtonDelete_Click_1(sender As Object, e As EventArgs) Handles ButtonDelete.Click

    '最下行から上に向かってチェックボックスにチェックが入っているかどうかループで判断していく
     Dim i As Integer
           For i = DataGridView1.Rows.Count - 1 To 0 Step -1
                 'チェックが入っている場合は行削除
          If DataGridView1(colSELFLG, i).Value = True Then
                    DataGridView1.Rows.RemoveAt(i)
                End If
            Next

    End Sub

多分ですが、チェックボックスをクリックしたらチェックされた行を識別したいという事でしょうか？
それならこれでどうでしょうか？

全て選択、解除のリンクラベルクリック

    Private Sub lnk_全て_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnk_全て.LinkClicked, lnk_解除.LinkClicked
        For _カウンター = 0 To データグリッド.RowCount - 1
            If sender Is lnk_全て Then
                データグリッド(clm_選択.Index, _カウンター).Value = True
            Else
                データグリッド(clm_選択.Index, _カウンター).Value = False
            End If
        Next
    End Sub

データグリッドの選択チェックが変更された

    Private Sub データグリッド_CellValueChanged(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles データグリッド.CellValueChanged
        If データグリッド.RowCount <= 0 Then
            Exit Sub
        End If

        If e.ColumnIndex = clm_選択.Index Then
            If データグリッド(clm_選択.Index, e.RowIndex).Value Then
                データグリッド.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.DarkSlateBlue
                データグリッド.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.White
            Else
                データグリッド.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Empty
                データグリッド.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Empty
            End If
        End If
    End Sub