Public Class frmCheck
 
    Dim WithEvents dgv As New DataGridView With _
    {.Parent = Me, .Dock = DockStyle.Fill}
    Dim dt As New DataTable
 
    Private Sub frmCheck_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
 
        dt.Columns.Add("Check", GetType(Boolean))
        dt.Columns.Add("Text", GetType(String))
 
        For i As Integer = 0 To 63
            dt.Rows.Add("false", "Check " & CStr(i))
        Next i
 
        With dgv
            .RowHeadersVisible = False : .ColumnHeadersVisible = False
            .AllowUserToDeleteRows = False : .AllowUserToAddRows = False
            .CellBorderStyle = DataGridViewCellBorderStyle.None
            .DataSource = dt
            .Columns(1).ReadOnly = True
        End With
 
    End Sub
 
    Private Sub dgv_CellMouseClick(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) _
        Handles dgv.CellMouseClick
 
        MsgBox(CStr(e.RowIndex) & " ist geclickt worden ")
    End Sub
End Class