ox = createobject( "mytimer" ) #define SWP_NOSIZE 0x0001 #define HWND_NOTOPMOST -2 declare integer FindWindow in win32api ; string lpClassName, ; && pointer to class name string lpWindowName && pointer to window name declare integer SetWindowPos IN win32api ; integer hWnd, ; && handle to window integer hWndInsertAfter, ; && placement-order handle integer X, ; && horizontal position integer Y, ; && vertical position integer cx, ; && width integer cy, ; && height integer uFlags && window-positioning flags =messagebox( "test", 0, "My Title" ) ox = .null. return define class MyTimer as timer procedure Init() this.Interval = 1 this.Enabled = .t. endproc procedure Timer() this.Enabled = .f. local lnHWND lnHWND = FindWindow( .null., "My Title" ) SetWindowPos( lnHWND, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE ) endproc enddefineThe timer is needed because the MessageBox is modal as far as VFP is concerned.