[اسامه الهرماوي]

السلام عليكم...
تفضل:

كود :

Dim a As Integer = 0

       For i As Integer = 1 To DataGridView1.Rows.Count - 1
           If DataGridView1.Rows(i).Cells(0).Value = vbTrue Then
               a += 1
           End If
       Next
       Label1.Text = a + 1