هل يمكننى ان اجمع عمود فى felxgrid

تفضل

Dim Sum As Double
'لجمع العمود الأول ابتداءا من الصف الأول
For r = 1 To Me.MSFlexGrid1.Rows - 1
Sum = Sum + Val(Me.MSFlexGrid1.TextMatrix(r, 0))
Next r
msgbox sum

اشكرك اخى فى اله