Code ---> Dim Sum As Integer = 0 For i = 1 To DGV.Rows.Count + 1 Sum += DGV.Rows(i).Cells(3).Value Next Label7.Text = Sum.ToStri