Função check box no datagridview vb.net

[ivofbento]

Boa tarde pessoal.

Estou tentando uma instrução no datagridview com checkbox onde ao marcar um item (sendo máximo 3 itens) na lista que vem do banco de dados, o código deste item seja transportado para o txtbox1; se for marcado um segundo, seja colocado no textbox2; se for marcado um terceiro, seja colocado no textbox3 e se for desmarcado o mesmo seja apagado do textbox correspondente. Segue abaixo o que eu consegui fazer até agora mais entalei aqui:

==============================================================================

 Private Sub dgv1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv1.CellClick

        dgv1.Rows(e.RowIndex).Cells(0).Value = Not _
            dgv1.Rows(e.RowIndex).Cells(0).Value
        For Each dr As DataGridViewRow In dgv1.Rows
            If dr.Cells(0).Value IsNot Nothing Then
                Dim msg As String
                Dim title As String
                Dim style As MsgBoxStyle
                Dim response As MsgBoxResult
                'Faz checagem de seleção - se for marcado solicita confirmação
                If e.ColumnIndex <> 0 Then
                    Exit Sub
                Else
                    msg = "Confirma a seleção destes objetivos?"   ' Define a mensagem.
                    style = MsgBoxStyle.DefaultButton2 Or
       MsgBoxStyle.Critical Or MsgBoxStyle.YesNo
                    title = "AGE-Programação - Objetivos Pessoais"  ' Define título.
                    ' Display da mensagem.
                    response = MsgBox(msg, style, title)
                    If response = MsgBoxResult.Yes Then   ' O usuário escolheu Sim.
                        ' Executar a ação.
                        For i As Integer = 0 To dgv1.Rows.Count - 1
                            If Convert.ToBoolean(dgv1.Rows(i).Cells(0).Value) Then
                                mtxtOBJprg1.Text = dgv1.Rows(i).Cells(2).Value.ToString()
                            End If
                            If Convert.ToBoolean(dgv1.Rows(i).Cells(0).Value) Then
                                mtxtOBJprg2.Text = dgv1.Rows(i).Cells(2).Value.ToString()
                            End If
                            If Convert.ToBoolean(dgv1.Rows(i).Cells(0).Value) Then
                                mtxtOBJprg3.Text = dgv1.Rows(i).Cells(2).Value.ToString()
                            End If
                        Next
                        MsgBox("Seleção feita com sucesso.", MsgBoxStyle.Information, "INFORME")
                    Else
                        ' Cancelar ação.
                        Exit Sub
                    End If
                End If
            End If
        Next
    End Sub

==============================================================================

Espero que possam me ajudar.

Desde já agradeço a atenção.