[填空题] 某程序列表框中有许多项，现在用Timer控件控制时间，100ms删除一项，直到删完为止。用一滚动条来显示已删除的项目，完成此程序。 Private Sub Command1_Click(

[填空题] 某程序列表框中有许多项，现在用Timer控件控制时间，100ms删除一项，直到删完为止。用一滚动条来显示已删除的项目，完成此程序。

Private Sub Command1_Click()

Hscroll1.Min=0

HScroll1.Max=______

HScroll1.Value=0

Timer1.______=100

Timer1.Enabled=True

End Sub

Private Sub Timer1_Timer()

If List.ListCount＞0 Then

List1.Removeltem(0)

HScroll1.Value=______-List1.ListCount

Else

Timer1.Enabled=False

MsgBox”全部删除!”

End If

End Sub