窗口afterload、SizeChanged事件
Dim width As Integer = e.Form.width
Dim w3 As Integer = cint(width/3) - 6
Dim g1 As WinForm.GroupBox = e.Form.Controls("GroupBox1")
g1.Width = w3
g1.Left = 0
Dim g2 As WinForm.GroupBox = e.Form.Controls("GroupBox2")
g2.Width = w3
g2.Left = w3+3
Dim g3 As WinForm.GroupBox = e.Form.Controls("GroupBox3")
g3.Width = w3
g3.Left = w3*2+6