Hola cnunezm. gracias el problema ahora es k al realizar esta funcion:
Private Function sumarLista() As Double
Dim I As New Integer
For I = 1 To ListView1.Items.Count
sumarLista = Round(sumarLista + Val(ListView1.Items(I).SubItems(5).Text), 2)
Next I
End Function
Me da un problema con el siguiente error "ArgumentOutOfRangeException" averiguando un poco con la clase VAL me indica "Expression
Requerido. Cualquier expresión String, variable Object o valor Char válidos. Si Expression es del tipo Object, su valor debe ser convertible a String o se producirá un error ArgumentException", no se si sera esto o tiene algo k ver con el ROUND que da el valor + cercano.
Esta funcion la llamo con click
TxtTotal.lbl = Trim(Str(sumarLista()))
En si estoy muy confundido que a la hora de realizar la suma del campo en el listview se cae el programa.
Agradeciendo su ayuda.
Saludos desde CR.