How to count negative numbers in a Listbox?

[Blank808]

i need some example codes..

[AndreRet]

As you would count positive numbers...

Dim xCount as Integer, xList as Integer

xList = 0

For xCount = 0 To lstNumbers.Listcount - 1
    lstNumbers.ListIndex = xCount

    xList = Val(xList) + Val(lstNumbers.Text) ''Assuming that you have checked that it is only numbers...
Next xCount

[BitBlt]

After reading the original request, I wonder if the OP is really asking for: "How would I COUNT the NUMBER of negative numbers in a listbox" rather than "ADDING UP the total of the numbers in the list, regardless of whether they are positive or negative".

Might be something like this:

Dim xCount as Integer, xList as Integer
xList = 0
For xCount = 0 To lstNumbers.Listcount - 1
    lstNumbers.ListIndex = xCount
    if val(lstNumbers.text) < 0 then
        xList = xList + 1 ''Assuming that you have checked that it is only numbers...''
    endif
Next xCount