VB Foutje..

Hallo allemaal, ik kreeg deze site als aanraden dus hier is mijn vraag:

Ik heb me Vb een ding gemaakt waarmee je allemaal producten in op kunt slaan.

Producten:
1
2
3
4

Je kan nu dingen erin zetten, dat heb ik gedaan en nu wil ik er 1 verwijderen maar nu komt er bij de teller (ik heb een teller voor het aantal producten). En als ik dan 1 product verwijder, dan gaat er geen 1 van de teller af... en bij de 2e product die ik verwijder wel en 3e ook en 4e ook. Hier zijn de  codes:


Private Sub aantalproducten_Change()
aantalproducten.Text = Productlijst.ListCount + 1
End Sub

Private Sub Producttoevoegen_Click()
aantalproducten.Text = Productlijst.ListCount + 1
Productlijst.AddItem nieuwproduct.Text
End Sub

Private Sub wisproduct_Click()
If Productlijst.ListIndex >= 0 Then
Productlijst.RemoveItem Productlijst.ListIndex
End If
End Sub

Private Sub aantalproducten_Change()
   aantalproducten.Text = Productlijst.ListCount + 1
End Sub

Private Sub Producttoevoegen_Click()
   aantalproducten.Text = Productlijst.ListCount
   Productlijst.AddItem nieuwproduct.Text
End Sub

Private Sub Producttoevoegen_Click()
   Productlijst.AddItem nieuwproduct.Text
   aantalproducten.Text = Productlijst.ListCount
End Sub

Private Sub wisproduct_Click()
   If Productlijst.ListIndex >= 0 Then
      Productlijst.RemoveItem Productlijst.ListIndex
      aantalproducten.Text = Productlijst.ListCount
   End If
End Sub