[3booody]

السلام عليكم ورحمة الله وبركاته

ان شاء الله يكون هذا طلبك ؟

كود :

Dim arr = From n As DataGridViewRow In DataGridView1.Rows Select CDbl(n.Cells(10).Value)
       Dim D As Double = 0
       For Each n As Double In arr
           D += n
       Next
       TextBox1.Text = D