问题备兆者猜庆:1列表框名为L1,你却有时用L1,有时用list12a要定义全仿薯局变量DimiAsIntegerDimaAsStringPrivateSubL1_dblClick()Fori=0To3IfL1.Selected(i)=TrueThenL1.AddItemaEndIfNextEndSubPrivateSubText1_Change()a=Text1.TextEndSub