Dim result As Double
result = dataGridView1.Rows.Cast(Of DataGridViewRow)().Select(Function(dgvr) Convert.ToDouble(dgvr.Cells("column_name").Value)).Sum()
Dim i As Integer = 0
Dim Total As Double = 0
For i = 0 To dgvshow.Rows.Count - 1
Total += CDbl(dgvshow.Rows(i).Cells(4).Value)
Next
txtvalue.Text = Total.ToString("#,##0.00")
Dim result As Double
result = dgvshow.Rows.Cast(Of DataGridViewRow)().Select(Function(dgvr) Convert.ToDouble(dgvr.Cells("In_Money").Value)).Sum()
txtvalue.Text = result.ToString("#,##0.00")