_SCREEN.WINDOWSTATE = 0 * 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 .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 window control buttons .ControlBox=.F. .MaxButton=.F. .MinButton=.T. .Movable=.T. .Height=170 .Width=180 .Caption="Clock - Khan Software" && Set a caption .LockScreen=.F. && Enable screen redraw ENDWITH ************************************** do form clock shutdown()