>LOCAL oForm >oForm = CreateObject("tform") >oForm.Show(1) >* end of main > >DEFINE CLASS tform As Form > Width=500 > Height=300 > Caption="Resizing with MoveWindow API" > > ADD OBJECT cmd As CommandButton WITH; > Left=10, Top=15, Width=80, Height=27, Caption="Resize" > >PROCEDURE cmd.Click > DECLARE INTEGER GetFocus IN user32 > > DECLARE INTEGER MoveWindow IN user32; > INTEGER hWnd, INTEGER X, INTEGER Y,; > INTEGER nWidth, INTEGER nHeight, INTEGER bRepaint > > = MoveWindow(GetFocus(), 0,0, 1500,1400, 1) > *= MoveWindow(GetFocus(), -50,-50, 1500,1400, 1) && works either >ENDDEFINE >