VB（如图）怎么在运行时改变【蛇图】大小，求代码。

这个可以这样实现（我加个按钮）Private Sub Command1_Click()Form1.Width = 8000 ‘先调整FORM大小Form1.Height = 8000Picture1.Width = 7000 ’调整图大小Picture1.Height = 5000End Sub效果，调整前调整后