私人& ampnbsp & ampnbspSub & ampnbsp & ampnbspCommand1_Click()
& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbspDim & ampnbsp & ampnbspi & ampnbsp & ampnbspAs & ampnbsp & ampnbspInteger
& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbspDim & ampnbsp & ampnbspt & ampnbsp & ampnbspAs & ampnbsp & ampnbspLong
& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & amp不間斷空格
& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbs label 1。自動調整大小。nbsp & ampnbsp = & ampnbsp & ampnbspTrue
& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbspSet & ampnbsp & ampnbs label 1。字體和字體。nbsp & ampnbsp = & ampnbsp & ampnbspList1。字體
& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbspt & ampnbsp & ampnbsp = & ampnbsp & ampnbspList1。寬度
& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & amp不間斷空格
& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbspFor & ampnbsp & ampnbspi & ampnbsp & ampnbsp = & ampnbsp & ampnbsp0 & ampnbsp & ampnbspTo & ampnbsp & ampnbspList1。列表計數& ampnbsp & ampnbsp-& amp；nbsp & ampnbsp1
& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbs label 1。標題和標題。nbsp & ampnbsp = & ampnbsp & ampnbspList1。列表(壹)
& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbspIf & ampnbsp & ampnbs label 1。寬度和尺寸。nbsp & ampnbsp & gt& ampnbsp & ampnbspt & ampnbsp & ampnbspThen
& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbspt & ampnbsp & ampnbsp = & ampnbsp & ampnbs label 1。寬度
& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbspEnd & ampnbsp & ampnbspIf
& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & amp下壹個。nbsp & ampnbspi
& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & amp不間斷空格
& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbspList1。寬度和尺寸。nbsp & ampnbsp = & ampnbsp & ampnbspt & ampnbsp & ampnbsp+& amp；nbsp & ampnbsp500
& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & amp不間斷空格
結束& ampnbsp & ampnbspSub
私人& ampnbsp & ampnbspSub & ampnbsp & ampnbspForm_Load()
& ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbsp & ampnbspDim & ampnbsp & ampnbspi & ampnbsp & ampnbspAs & ampnbsp & ampnbspInteger
& 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 & amp下壹個。nbsp & ampnbspi
結束& ampnbsp & ampnbspSub
這樣可以嗎？
自動寬度變化