你要求是什么?窗体可用面积一样,还是窗体面积一样。这二个是二个概念
一、窗体面积一样。
Form2.Width =Picture1.Width
form2.Height =Picture1.Height
二、先要计算出窗体2的 上下左右的边距,然后根据Picture1的可用面积换算 。
Dim i As Long
i = Form2.Width - Form2.ScaleWidth
Form2.Width = Picture1.ScaleWidth + i
i = Form2.Height - Form2.ScaleHeight
Form2.Height = Picture1.ScaleHeight + i