La verdad tampoco encuentro como hacerlo con un Listbox.
En cambio te doy una alternativa, con un Textbox, propiedades MultiLine = True y ScrollBars = 3 - Both
Private Sub Command1_Click()
AddItem "adncnlsfjeportfdfgmgjktyuktyklskaewhuihkyyumhrhiwerhw_Linea _larguísimaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa!!!!!!!!!!"
End Sub
Private Sub AddItem(elemento As String)
Static contador As Integer
contador = contador + 1 '<--< Opcional
'Código realmente importante
Text1 = Text1 + "Item" + CStr(contador) + " - " + elemento + vbCrLf
Text1.SelStart = Len(Text1)
Text1.SetFocus
End Sub
De esta forma pienso que podrás lograr el efecto deseado.
Y naturalmente también crear un
OCX, a partir del Textbox, un nuevo Listbox que se adapte a tus necesidades.
Chau
Autor
En línea
