>* Local variables to store current settings >Local oldScreenLeft >Local oldScreenTop >Local oldScreenHeight >Local oldScreenWidth >Local oldScreenColor >WITH _SCREEN > oldScreenLeft=.Left && Save current position and size > oldScreenTop=.Top > oldScreenHeight=.Height > oldScreenWidth=.Width > oldScreenColor=.Backcolor > .AutoCenter=.T. > .LockScreen=.T. && Disable screen redraw > .BackColor=rgb(192,192,192) && Change the background to grey > .BorderStyle=2 && Change the border to double > .Closable=.F. && Remove the window control buttons > .ControlBox=.F. > .MaxButton=.F. > .MinButton=.F. > .Movable=.T. > .Height=440 > .Width=640 > .Caption="MED CONTROL" && Set a caption > .Lockscreen=.F. && Enable screen redraw >ENDWITH >>