vb中如何使背景图片的大小随着窗体改变？

在窗体上添加一个IMage图像框
在复制这段代码
Private Sub Form_Resize()
Image1.Top = 0
Image1.Left = 0
Image1.Stretch = True
Image1.Height = Me.ScaleHeight
Image1.Width = Me.ScaleWidth
Image1.Picture = Me.Picture
End Sub