窗体里的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)

[解决办法]
这样应该就可以吧：

Me.scaleWidth = Image1.Width
Me.scaleHeight = Image1.Height