'Lance (12/9/01 8:05:31 pm)
'Reply  Proper Minimize
'--------------------------------------------------------------------------------

Const GWL_HWNDPARENT = (-8)
Const HWND_DESKTOP = 0

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (hwnd As Long, nIndex As Long, dwNewLong As Long) As Long

create form as qform
caption="Test"
center
end create

setwindowlong(form.handle, GWL_HWNDPARENT, HWND_DESKTOP)
setwindowlong(application.handle, GWL_HWNDPARENT, form.handle)

form.showmodal