Dim width As Integer = e.Sender.Panel2.Width
Dim ct1 As WinForm.Table = e.Form.Controls("Table1")
Dim ct2 As WinForm.Table = e.Form.Controls("Table2")
Dim ct3 As WinForm.Table = e.Form.Controls("Table3")
Dim w As Integer = (width-20)/3
ct1.Width = w
ct1.Left = 5
ct2.Width = w
ct3.Width = w
ct2.Left = ct1.Width +15
ct3.Left = ct1.Width + ct2.Width +25