10/11/2008, 10:53
|
| | | Fecha de Ingreso: noviembre-2008
Mensajes: 38
Antigüedad: 16 años, 6 meses Puntos: 0 | |
| Respuesta: ayuda en proyecto
elizabeth deberias cambiarl list2 por list1, como te detallo :
Private Sub Command2_Click()
Dim suma As Double
For i = 0 To List1.ListCount - 1
suma = suma + Val(List1.List(i))
Next i
Label1.Caption = Format(suma, "#,##0.00")
Label4.Caption = Format(suma * 0.13, "#,##0.00")
End Sub |