单项选择题

某程序列表框中有许多项，现在用Timer控件控制时间，0.1秒删除一项，直到删完为止，用一滚动条来显示删除的项目，请选择合适的语句，完成此程序( )。
Private Sub Command2_Click() HSeroll1.Min=0 HScroll1.Max=List1.ListCount HScroll1.Value=0 Timer1.Interval=______ Timer1.Enabled=True End Sub Private Sub Timer1_Timer() If List1.ListCount>0 Then List1.RemoveItem 0 HScroll1.Value=HSeroll1.Max-List1.ListCount Else Timer1.Enabled=______ MsgBox"全部删除!" End If End Sub