Foutmelding listbox

[Jelle2010]

Beste experts,

Ik heb in een formulier een listbox staan bestaande uit 8 kolommen. In kolom 6 staan bedragen. Nu wil ik al deze waarden optellen en het totaal laten zien in een textbox. Ik wil gebruik maken van een code die ik ook van dit forum heb gehaald maar nu krijg ik de volgende foutmelding:
"fout 381 tijdens uitvoering
Kan eigenschap list niet verkrijgen. Ongeldige index voor eigenschappenmatrix"

Is er iemand die mij hiermee kan helpen? Dit is de code die ik gebruik:

Private Sub lstAlleProducten_change()
Dim mijnsum As Double
Dim i As Integer

For i = 0 To lstAlleProducten.ListCount
    mijnsum = mijnsum + lstAlleProducten.List(i, 0)
Next
TbFactTot.Value = mijnsum
End Sub

Alvast super bedankt!!

 

[Superzeeuw]

Jelle,

Probeer dit eens:

Private Sub lstAlleProducten_change()
Dim mijnsum As Double
Dim i As Integer

For i = 0 To lstAlleProducten.ListCount-1
    mijnsum = mijnsum + lstAlleProducten.List(i)
Next
TbFactTot.Value = mijnsum
End Sub

 

[Jelle2010]

SuperZeeuw bedankt!! Werkt perfect. Merci!!