如果真要做,参考
Afterload事件
vars("width") = e.Form.widthvars("height") = e.Form.height
SizeChanged事件
For Each c As Winform.Control In e.Form.Controls c.Left = c.Left * (e.Form.Width / vars("width")) c.Top = c.Top * (e.Form.Height / vars("height")) c.Width = c.Width * (e.Form.Width / vars("width")) c.Height = c.Height * (e.Form.Height / vars("height"))Nextmsgbox(e.Form.Height / vars("height"))vars("width") = e.Form.widthvars("height") = e.Form.height