La programación VB cambia automáticamente el ancho y alto de la lista

Privado& ampnbsp & ampnbspSub & ampnbsp & ampnbspCommand1_Click()

& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbspDim & ampnbsp & amp nbs & ampnbsp & ampnbspAs & ampnbsp & ampnbspInteger

& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbspDim & ampnbsp & ampnbspt & ampnbsp & ampnbspAs & ampnbsp & ampnbspL ong

& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & amp espacios sin separación

& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbs etiqueta 1. Cambiar el tamaño automáticamente. nbsp & ampnbsp = & ampnbsp & ampnbspTrue

& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbspSet & ampnbsp & ampnbs etiqueta 1. Fuentes y tipografías. nbsp & ampnbsp = & ampnbsp & ampnbspList1. Fuente

& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp = & ampnbsp & ampnbspList1. Ancho

& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & amp espacios sin separación

& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbspFor & ampnbsp & ampnbspi & ampnbsp & ampnbsp = & ampnbsp & ampnbsp0 & ampnbsp & ampnbspTo & ampnbsp & ampnbspList1. Lista de recuento &nbsp &nbsp-& nbsp &nbs etiqueta 1. Títulos y títulos.

nbsp & ampnbsp = & ampnbsp & ampnbspList1. Lista (1)

& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbspIf & ampnbsp & ampnbs etiqueta 1. ancho y tamaño. nbsp & ampnbsp & gt& ampnbsp & ampnbspt & ampnbsp & ampnbspEntonces

& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp = & ampnbsp & ampnbs etiqueta 1. Ancho

& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & amp & AMPN BSP & AMPNBSP & AMPNBSP & AMPNBSPEND & AMPNBSP & AMPNBSPIF

& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnext. nbsp & ampnbspi

& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnon-breaking espacios

& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp &nbspLista1. ancho y tamaño.

nbsp & ampnbsp = & ampnbsp & ampnbspt & ampnbsp & ampnbsp+& amp;nbsp & ampnbsp500

& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnon-breaking espacios

End&nbsp &nbspSub

Privado&nbsp&nbspSub&nbsp&nbspForm_Load()

&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbspDim&nbsp & ampnbspi & ampnbsp & ampnbspAs & & ampnbspEntero

& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbspFor & ampnbsp & ampnbspi & ampnbsp & ampnbsp = & ampnbsp & ampnbsp0 & ampnbsp & ampnbspTo & ampnbsp & ampnbsp50

& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbspList1. AddItem & ampnbsp & ampnbsp string(Int(Rnd(20)amp;nbsp & ampnbsp*&.nbsp & ampnbsp100).nbsp & ampnbsp"s")

& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnext. nbsp & ampnbspi

Fin& ampnbsp & ampnbspSub

¿Está bien?

Cambio de ancho automático