hola amigos..

Tengo un problema que no logro resolver, a pesar de que es sencillo no lo logro,

tengo un listobox que lo lleno así:

Private Sub ChameleonBtn1_Click()
Dim Agregar As Integer
Agregar = InputBox("Agregar elemento")


List1.AddItem Agregar

End Sub

y esta es mi supuesta Function:

Public Function SumarElementos(Lista As Integer) As Integer

Dim i As Integer
Dim Suma As Integer

Suma = 0
For i = 0 To Lista
Suma = Suma + Lista(i)
SumarElementos = Suma

End Function
y llamo a la Function así:
Private Sub ChameleonBtn2_Click()
Dim Elementos_lista As Integer

Elementos_lista = List1.ListCount - 1


Text1.Text = SumarElementos(Elementos_lista) 'aqui me dice que esta el error..se esperaba matriz o un tipo definido por el usuario

End Sub

que es lo que estoy haciendo mal.... podrian orientarme

Hola, que tal.

Verifica que valor tiene Elementos_lista antes de asignarselo a Text1.Text .

Ya nos contarás.

__________________
Un saludo.

Alfredo
Barcelona-España
_________________
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion

Hola, la vairable Lista dentro de tu función SumarElementos(Lista As Integer)
la tienes como integer, sin embargo en el cuerpo de la misma la utilizas como si fuera un arreglo:
For i = 0 To Lista
Suma = Suma + Lista(i)
SumarElementos = Suma

tienes que definir las variables segun lo que requieras...
si lista para saber cuantos elementos (integer) son ó bien como un arreglo de enteros

Saludos!!!

__________________
Javiertv

Hola, por favor podrian enviarlo ya hecho y zipeado.. gracias

__________________
jj7