在线等,如何让窗体的大小随着背景图片的大小而变化
如何让窗体的大小随着背景图片的大小而变化?想做一个简单的小程序:每单击一次窗体,背景图就变化一次,并且让窗体的大小随着图片的大小变化。
在线等,谢谢!

Private Sub Command3_Click() Form1.Width = 3000 * (2 * Rnd() + 1) Form1.Height = 3000 * (2 * Rnd() + 1)
pct.Width = 1000 * (2 * Rnd() + 1) pct.Height = 1000 * (2 * Rnd() + 1) End Sub