Dim sumcell As Double
For i = 0 To DataGridView1.RowCount - 1
sumcell += DataGridView1.Item("col", i).Value
Next
textbox1.text = sumcell
