189 8069 5689
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
成都创新互联专注于企业全网营销推广、网站重做改版、上杭网站定制设计、自适应品牌网站建设、H5建站、商城系统网站开发、集团公司官网建设、外贸网站制作、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为上杭等各大城市提供网站开发制作服务。
With PictureBox1
.Left = (Me.Width - .Width) / 2
.Top = (Me.Height - .Height) / 2
End With
End Sub
如果你用 .NET 做就很好办了。
滚动条的 Dock 属性设置为 Left，就在最左边了，窗体再调整大小它也跟着调。
图片框复杂点，如果不调整它和窗体的大小，编程时用格式菜单窗体居中就行，如果调整的话，你需要计算窗体的大小（frmMain.Size），然后按照 frmMain 的 Size 的 Width，Height 计算出图像框该有多大，用另两个 Integer 保存（Location 设置个固定值即可，Size 的 Width，Height 设置为窗体 Size 的 Width，Height 减去图像框的 Location 的 X，Y），将这两个值保存在一个 Point 对象中。然后把图像框的 SizeMode 属性设置为 StretchImage，并将其 Size 属性设置为你保存的那个 Point 对象。这样就能调节图像框的大小和位置，使其总是正好在窗体中间。
这段代码写个子程序，窗体的 Resize、图像框的 LoadComplete 事件都要调用它。
Sub PicResize
dim NewX as integer = me.size.width - 10 '假设这是图像框的 Location
dim NewY as integer = me.size.height - 10
dim NewPoint as new Point(NewX, NewY)
picMain.SizeMode = StretchImage
picMain.size = NewPoint
end sub
如果使用 .NET，你还是用 SplitContainer 非常方便，滚动条和图像框占用两边， Dock 设置为 Fill
先计算位图宽高，计算个起始点使其居中，具体方法是建立两个PictureBox：Pic1、Pic2，且Pic2的“AutoSize”属性设为“True”，Pic1的“AutoRedraw”属性设为“True”
Set Pic2.Picture=LoadPicture(……)
Pic1.PaintPicture Pic2.Picture, (Pic1.ScaleWidth-Pic2.ScaleWidth)\2, (Pic1.ScaleHeight-Pic2.ScaleHeight)\2, Pic2.ScaleWidth, Pic2.ScaleHeight