要求简单点的

谢谢！

长。宽
是点击按钮，将Image1放大一倍后显示在Image2图像框内！
Stretch属性为True
代码：
Private Sub Command1_Click()
Image2.Picture = Image1.Picture
Image2.Width = 2 * Image1.Width
Image2.Height = 2 * Image1.Height
End Sub

可我就能放大一次，点击N次还是不行

我想让点一次　放大一倍，再点一次，再放大一倍，也就是两倍的意思　！明白不

好了，弄好了，定义一个Static变量　
将第一个图片的Stretch设为False　第二个为True就行了！
Private Sub Command1_Click()
Static a, b
Image2.Picture = Image1.Picture
a = 2 * Image1.Width
Image2.Width = a
Image1.Width = a

b = 2 * Image1.Height
Image2.Height = b
Image1.Height = b
End Sub