kurapica_90

Holas soy nuevo trabajando en Visual Basic 2008 y no tengo claro como trabajar con los checkedListBox se me ha hecho mas complicado dejo mi problema plateado ojala me pudieran ayudar Tengo un CheckListBox con 5 opciones las cuales cada una tiene un precio determinado, el cual en el codigo de abajo. Entonces al seleccionar una o mas opciones que me sume las que estan marcadas, y me muestre la suma en el label, Creo que eso lo hize bien porque me funciona al seleccionar los item me muestra la suma de los que estan seleccionados, ahora al desmarcar todas las opciones me deja el ultimo valor marcado en el label , y no lo deja en 0 (en tiempo de ejecución) Como deberia hacerlo para que cuando desmarque la ultima opcion me reste ese valor. Dejare mi codigo Aki : Private Sub chklMotivo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chklMotivo.SelectedIndexChanged Dim valor As Integer = 0 For i As Integer = 0 To Me.chklMotivo.Items.Count - 1 If Me.chklMotivo.GetItemChecked(i) Then If i = 0 And Me.chklMotivo.GetItemChecked(i) = True Then valor += 1000 lblCosto.Text = valor End If If i = 1 And Me.chklMotivo.GetItemChecked(i) = True Then valor += 2000 lblCosto.Text = valor End If If i = 2 And Me.chklMotivo.GetItemChecked(i) = True Then valor += 3000 lblCosto.Text = valor End If If i = 3 And Me.chklMotivo.GetItemChecked(i) = True Then valor += 4000 lblCosto.Text = valor End If If i = 4 And Me.chklMotivo.GetItemChecked(i) = True Then valor += 5000 lblCosto.Text = valor End If End If Next i End Sub