在文本框的属性列表中把multiline 改为 true把.ScrollBars 改为 3
VB2010版本：
修改文本框下列属性：
ScrollBars属性为Both
multiline 属性 改为 true
.multiline = true.ScrollBars = 3
如图
