listbox con barra de dezplamiento horizontal

[viejo]

hola que tal no se como poder poner un listbox con barra de dezplamiento horizontal

¿alguna sugerencia?

este es mi codigo que no funciona

Private Sub Lst_nombres_Click()

Call DisplayHScroll

End Sub

Private Sub DisplayHScroll()

' Make no partial items are displayed vertically.

Me.Lst_nombres.IntegralHeight = True

Dim x As Integer

' Add items that are wide to the ListBox.

For x = 0 To 10

Me.Lst_nombres.Items.Add ("Item " + x.ToString() + " is a very large value that requires scroll bars")

Next x

' Display a horizontal scroll bar.

Me.Lst_nombres.HorizontalScrollbar = True

' Create a Graphics object to use when determining the size of the largest item in the ListBox.

Dim g As System.Drawing.Graphics

g = Lst_nombres.CreateGraphics()

' Determine the size for HorizontalExtent using the MeasureString method using the last item in the list.

Dim hzSize As Integer

g.MeasureString(lst_nombre.Items(Lst_nombres.Items.Count - 1).ToString(), Lst_nombres.Font).Width

' Set the HorizontalExtent property.

Me.Lst_nombres.HorizontalExtent = hzSize

End Sub

[Invitado Cacho R]

Hola! hermesc.

Una práctica -no demasiado aconsejable- consiste en "copiar y pegar" códigos, sin tener la más mínima idea de lo que se está copiando...

En ese contexto vale la siguiente metáfora: ¿Sabías que el yogur y la leche son dos productos distintos?... Pues, del mismo modo: el Visual Basic (VB) y el Visual Basic for Application (VBA, alias macros del Office) -también- son dos productos distintos.

Concretamente: el código que nos muestras no tiene nada que ver con el VBA y no refleja algún tipo de esfuerzo de tu parte por intentar hacer un código adecuado a tus necesidades: ¿Por qué no utilizas a San Google haciendo una búsqueda más pertinente?.

En ese caso y si no te llegara a funcionar lo que encontrases, vuelve por aquí con algo "un poquito" más adecuado, ¿OK?