chechocha
18 de Agosto del 2003

Alguien podria decirme como puede hacer para que en la barra de estado de un formulario aparezca el número de elementos de una listbox y el total de la suma de los importes contenidos en otra listbox.GRACIAS

coco378
18 de Agosto del 2003

Espero que esto te ayude:

Private Sub Command1_Click()
Dim x As Double
x = 0

For i = 1 To List2.ListCount
x = x + List2.List(List2.ListIndex + i)
Next i

StatusBar1.Panels(1).Text = "No. de Items: " & List1.ListCount
StatusBar1.Panels(2).Text = "Importe Total: " & x
End Sub