你还是看看这个吧http://wenku.baidu.com/view/13f439d8d15abe23482f4d70.html
Private Sub VScroll1_Scroll()Form1.Width = VScroll1.ValueEnd Sub
最佳答案回答的代码链接内容太长了,不简洁,不如这个网页链接