PrivateSubForm_Click()Fori=toList.AddItemiNextiFori=toList.RemoveItemiNextiEndSubA，，B，，C，，D，，正确D在窗体上画一个名称为Text的文本框，然后画一个名称为HScroll的滚动条，其Min和Max属性分别为和，程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值