' Rapid-Q by William Yu (c)1999-2000                                             .
' ================================================================================
' Upload_il_tuo_script_su_Rapidq.it

' Minimizza_sulla_TaskBar

'minimize to taskbar



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

                center

end create



SetWindowLong(Form.Handle, GWL_HWNDPARENT, HWND_DESKTOP)

SetWindowLong(Application.Handle, GWL_HWNDPARENT, Form.Handle)



form.showmodal



' ===============================================================================
'                      2003 Holyguard.net - 2007_Abruzzoweb