主题：[求助] 窗口的控件

Afterload事件

vars("width") = e.Form.width
vars("height") = e.Form.height

SizeChanged事件

If e.Form.Width > 0 AndAlso e.Form.Height > 0 Then

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"))
Next
'msgbox(e.Form.Height / vars("height"))
vars("width") = e.Form.width
vars("height") = e.Form.height

End If