* dCUpgrade - Application Upgrade Manager Declare long GetWindowLong in "user32.dll" long hwnd, long index Declare long SetWindowLong in "user32.dll" long hWnd, long Index,long dwNewLong Declare long SetWindowPos In "user32.dll" long hWnd, long hWndInsertAfter, long x, long y, long w, long h, long option WS_CAPTION=12582912 WS_OVERLAPPED=0 SWP_FRAMECHANGED=32 Local loFrm Set Procedure to prg\dCFunc.Fxp Set Path to dbf\,prj\ _Screen.Visible=.N. loFrm=NewObject("dCUpgrade","dCUPGrade.vcx") lnStyle=GetWindowLong(loFrm.hWnd,-16) lnStyle=Bitand(lnStyle,Bitnot(Bitor(0,WS_CAPTION))) SetWindowLong(loFrm.hWnd,-16,lnStyle) SetWindowPos(loFrm.hWnd,0,1,1,1296,976,SWP_FRAMECHANGED) loFrm.Show Read Events loFrm="" Close Database If Version(2)=0 Quit EndIf