vb MSFlexGrid控件中怎么计算每一行,一列的和呀

以下代码假设 Flexgrid 控件的名称是 MS1，并且有标题行，没有标题列。

dim SUM as long,OO as long,PP as long

for OO=1 to ms1.rows-1
for pp=0 to ms1.cols-1
sum=sum+val(ms1.textmatrix(OO,PP))
next
next