Dúvida_VB6_CalcularLISTBOX

Assuntos Gerais
#1

Oi pessoal, gostaria da ajuda de vocês. Estou tentando calcular os valores que estão numa LISTBOX. Essa listbox recebe o valor e o sinal, a cada vez que o sinal é clicado.

O problema: Quando o FOR percorre a listbox ele dá erro quando pega o sinal, acho que não reconhece que o sinal não é INTEGER e aí dá problema. Como posso fazer para resolver isso, pois preciso do sinal para realizar o cálculo. ??? : :shock: ?:

Trecho do código

[code]Private Sub CmdCalcula_Click()

LstCalcula.AddItem (TxtValor2.Text)

For i = 0 To LstCalcula.ListCount - 1
    soma = soma + LstCalcula.List(i)
Next i
  
LblMostraResult.Caption = soma

End Sub

Private Sub CmdSoma_Click()

 LstCalcula.AddItem (TxtValor1.Text)
 LstCalcula.AddItem ("+")

End Sub
[/code]

Obrigada

#2

Oi,


Private Sub Command1_Click()
Dim i As Long
Dim lCnt As Long
For i = 0 To List1.listCount - 1
    lCnt = lCnt + List1.List(i)
Next i
    List1.AddItem "---Resultado---"
    List1.AddItem lCnt
End Sub
#3