استخدام Data Grid View

جرب الكود التالي :

		' عدد الأسطر المختارة
		Dim i As Integer = 0
		' لكل سطر من أسطر الأداة
		For Each r As DataGridViewRow In DataGridView1.Rows
			' إذا لم يكن محتوى الخلية فراغ
			If Not (r.Cells(0).Value Is Nothing) Then
				' إذا كانت الخلية مختارة
				If r.Cells(0).Value = True Then i = i + 1
			End If
		Next

TextBox1.Text = i.ToString()

تحياتي...