Sumar filas en un MSFlexgrid

[cyber_gab]

Código vb:

Dim suma As Long
Dim i As Long
For i = 0 To MSFlexGrid1.Rows - 1
suma = suma + Val (MSFlexGrid1.TextMatrix (i, 5))
Next
Text3.Text = suma
End If
 

Saludos[/QUOTE]

Amigo este es el codigo! pero recuerda que hay personas que estan empezando aprogramar, por consiguiente especifica bien:

Private Sub Sumar()

Dim i As Long
For i = 0 To MSFlexGrid1.Rows - 1
suma = suma + Val (MSFlexGrid1.TextMatrix (i, 5)) 'Donde 5 es el número de la columna a sumar
Next
Text3.Text = suma 'Donde text3 es el textbox donde va a mostrar el resultado

End Sub

luego en en "form" llamas la función "sumar"

Private Sub Form_Load()

Sumar

End Sub

Es todo.