Dim DGVCB As DataGridViewCheckBoxColumn = New DataGridViewCheckBoxColumn()
With DGVCB
            .ValueType = GetType(Boolean)
            .HeaderText = "Auswahl"
            .Name = "Auswahl"
            .DisplayIndex = 0
End With
DataGridView1.Columns.Add(DGVCB)
DataGridView1.Rows.Add("true")
DataGridView1.Rows.Add("false")
 
Private Sub DataGridView1_CellContentClick _
         (ByVal sender As System.Object, _
         ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) _
         Handles DataGridView1.CellContentClick
 
    If e.ColumnIndex = 0 Then
       Dim str As String = _
       DataGridView1.Rows(e.RowIndex).Cells(0).Value.ToString
       MsgBox("In Zeile: " & CStr(e.RowIndex) & " stand: " & str)
    End If
End Sub