控件问题请教？？

Question

在一个form上放一个Picture控件和command控件，我想点击command然后form的工作区宽度等于picture的宽度，form的工作区高度等于picture的高度怎么不行？
编程方法如下：
Private Sub Command1_Click()
Form1.ScaleHeight = Picture1.Height
Form1.ScaleWidth = Picture1.Width
End Sub
怎么不行呢？

Answer 1

Private Sub Command1_Click()
    Height = Picture1.Height
    Width = Picture1.Width
End Sub

Answer 2

Private Sub Command1_Click()
    Me.Height = Picture1.Height
    Me.Width = Picture1.Width
End Sub

Answer 3

不行呀，我的目的是想让form1的工作区高度和宽度等于picture1的高和宽度的而不是form1的总体高和宽等于picture1的高和宽！也就是
Form1的ScaleHeight = Picture1.Height
Form1的ScaleWidth = Picture1.Width
那怎么实现呢？
谢谢了

Answer 4

Form1的ScaleHeight = 800  '指定需要的大小就可以了，何必多事？
Form1的ScaleWidth = 600
Picture1.Height=800
Picture1.Width=600

Answer 5

我想在picture1中装入一张图片，然后在picture2中装入经过处理的那张图片，picture2的大小应该和picture1的大小一致所以才要这样的！谁能回答呀？