Visual Basic - sumas en flexgrid

hola chicos les pregunto si saben como sumar los valores que contienen algunas celdas del flexgrid.
o sea tengo un flexgrid en el cual la columna 2 carga el precio y la tres la cantidad
como hago con un for para que me sume toda una columna
yo hice un for pero no me cargaba nada
for i = 1 to .row = -1
uno= .textmatriz(i,2)
dos= .texmatriz(i,3)
next i
gacias fede

Dim Precio As Double
Dim Cantidad As Long
Dim Total As Integer
Dim lngMaxRow As Long

lngMaxRow = Me.flexGrid.Rows - 1
For w = 1 To lngMaxRow
DoEvents
Precio = Me.flexGrid.TextMatrix(w, 2)
Cantidad = Me.flexGrid.TextMatrix(w, 4)
Total = Precio * Cantidad
Next w

Saludos
Manuel Colca Lima - Perú

Hola,
Aquí tienes otro ejemplo:

Sub Cal_Total()
With Grid1
For h = 0 To 9 'grid1.row-1
.Col = 4
.Row = h
importe = Val(.Text)
subtotal = subtotal + importe
Next h
Total(0).Caption = subtotal
Total(0) = Format(subtotal, "###,###.00")
Total(1) = subtotal * 0.15
Total(1) = Format(Total(1), "###,###.00")
Total(2) = subtotal * 1.15
Total(2) = Format(Total(2), "###,###.00")
Text3.Text = Total(2).Caption
Text3.Text = Format(Text3, "#########.00")

End With
End Sub

Gracias manu e ismael me sirvio a pleno, un abrazo fede rosario - argentina.
Mucha suerte