1.把ListBox的MultiSelect的属性设为2
创新互联建站专注于碧江企业网站建设,成都响应式网站建设公司,商城建设。碧江网站建设公司,为碧江等地区提供建站服务。全流程定制制作，专业设计，全程项目跟踪，创新互联建站专业和态度为您提供的服务
2.对滚动条的Scroll事件进行编写
(Added
Attachment)
给你个列子：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
注意短横线
错了，是vbCrLf Chr(13) + Chr(10)
共两个字符。
#10是换行符
#13是回车符
有了回车符，代表了一行的结束，也方便于读取文本。
不要只打一个，vbCrLf简单方便，也是一个良好的习惯。
在要换行的地方断开字符串，用 Environment.NewLine 连接两个字符串即可。