You should be able to do this with no flicker. Note I won't even bother putting the code in the Init(), just in the Resize(). Don't put it in the Activate unless you have other reasons to do it.

do form mike noshow name mike
mike.myresize()
mike.show()

... shouldn't be any flicker, because it's happening before the form shows.

you can do the same thing with a class of course, but it's a bit tricker for no good reason <g>:

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
ENDDEFINE

HTH,

>L<