某程序列表框中有许多项，现在用timEr控件控制时间，0.1秒删除一项，直到删完为止，用一滚动条来显示删除的项目，请选择合适的语句，完成此程序( )。

privAtE suBCommAnD2_CliCk()
hsCroll1.min=0
hsCroll1.mAx=list1.listCount
hsCroll1.vAluE=0
timEr1.intErvAl=
timEr1.EnABlED=truE
EnD suB
privAtE suB timEr1_timErn
iF list1.listCount＞0 thEn
list1.rEmovEitEm 0
hsCroll1.vAluE=hsCroll1.mAx--listl.listCount
ElsE
timEr1.EnABlED=
msgBox"全部删除!"
EnD iF
EnD suB