[Resolved]

Here is the code if somebody need this:

Code:
Sub Hitung()
        For i As Integer = 0 To dgv1.Rows.Count - 1
                       
                Dim A As Double = dgv1.Rows(i).Cells(2).Value
                Dim B As Double = dgv1.Rows(i).Cells(3).Value
                Dim C As Double = dgv1.Rows(i).Cells(4).Value

                dgv2.Rows(i).Cells(2).Value = (A+B+C)

        Next