do form mike noshow name mike mike.myresize() mike.show()... shouldn't be any flicker, because it's happening before the form shows.
PUBLIC ox ox = CREATEOBJECT("myform") ACTIVATE WINDOW (ox.Name) NOSHOW ZOOM WINDOW (ox.Name) MAX ox.MyResize() ox.Show() RETURN DEFINE CLASS myform AS Form WindowState = 2 ADD OBJECT Container1 AS Container PROCEDURE MyResize() thisform.Container1.Left = 0 thisform.Container1.Width = thisform.Width/2 thisform.Container1.Top = 0 thisform.Container1.Height = thisform.Height/2 ENDPROC PROCEDURE Resize() THIS.MyResize() ENDPROC ENDDEFINEHTH,