Dudas con checked list box en visual basic 6.0

[pkj]

Es bastante confuso lo que pides, ya que no sumas valores en el textbox, sino que solo lo cargas con el valor de la última linea seleccionada en el ListBox.

Si quieres usar solo el valor de una linea seleccionada deberias poner un exit for despues del call.

Código vb:

Dim i As Integer
  For i = 0 To List1.ListCount - 1
    If List1.Selected(i) = True Then
      Text3.Text = List1.ItemData(i)
      Call buscatiempo
      Exit For
    End If
  Next i
 

y mejor si marcas como False la propiedad .MultiSelect del ListBox, (que imagino que tendrá, aunque no he usado nunca ese tipo de listbox), para que solo se pueda seleccionar una linea.

Si quieres sumar los valores de todas las lineas seleccionadas deberias poner text3="0" antes del for y text3 = text3 + list1.itemdata(i) dentro del if

Código vb:

Dim i As Integer
  Text3.Text = "0"
  For i = 0 To List1.ListCount - 1
    If List1.Selected(i) = True Then
      Text3.Text = Text3.Text + List1.ItemData(i)
    End If
  Next i
  Call buscatiempo
 

Con este código en el evento Click del ListBox se calcula el valor del text3 cada vez que marcas o desmarcas una línea.

Si no te sirve nada de esto es que no he entendido lo que quieres conseguir.

Saludos