请问各位高手，Shape控件运行时如何改变大小

Question

请问各位高手，Shape控件运行时如何改变大小？望赐教！谢谢

Answer 1

Shape1.Width = 111
Shape1.Height = 222

Answer 2

Private Sub Command1_Click()
Shape1.Shape = 1
Shape1.Width = Shape1.Width + 50
Shape1.Height = Shape1.Height + 50
End Sub
没意思

Answer 3

Shape1.Move Shape1.Left, Shape1.Top, Shape1.Width + 100, Shape1.Height + 100