Visual Basic - listbox

hola ALGUIEN PUEDE decirme como hacer que al precionar un boton se cuente la liata de un listbox y la ponga en un label
grACIAS....

Lista las fuentes de la impresora y pone en la etiqueta cuántas hay:
En un formulario hay un Cuadro de lista, una Etiqueta y un Botón
En el Botón de comando poner lo siguiente:
Dim I%
For I = 0 To Printer.FontCount - 1
List1.AddItem Printer.Fonts(I)
Next I
Label1.Caption = I + 1

Otra cosa que puedes hacer es usar la propiedad ListCount del control ListBox que devuelve la cantidad de ítems que el control tiene actualmente. Por ejemplo, puedes colocar lo siguiente en el evento Click de un botón:

Private Sub CommandButton1_Click()
Label1.Caption = CStr(List1.ListCount) & " ítem(s)"
End Sub