窗体里的ImageBox显示与图片一样大，ImageBox与窗体一样大
想做一个简单的窗体，里面就一个ImageBox，加载图片后窗体大小正好可以容下图片，可是如下代码：
Private Sub Form_Load()
Image1.Top = 0
Image1.Left = 0
Image1.Picture = LoadPicture(App.Path & "\\test.jpg")
Me.Width = Image1.Width '这样的话会有一部分图片不显示？
Me.Height = Image1.Height '这样的话会有一部分图片不显示？
End Sub
这样的话会有一部分图片不显示？好像要考虑边框宽度还是啥？
新手求教。
[解决办法]
当然是要算边框宽度
Me.Width = Image1.Width + (Me.Width - Me.ScaleWidth)
Me.Height = Image1.Height + (Me.Height - Me.ScaleHeight)
