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

' Form_in_primo_piano

DECLARE SUB SetWindowPos Lib "User32" ALIAS_

"SetWindowPos"(hWnd As Long, hWndInsertAfter As Long,_

X As Long, Y As Long, cx As Long, cy As Long, wFlags As Long)



DECLARE SUB Time



CREATE T AS QTIMER

                Interval = 1

                OnTimer = Time

END CREATE



CREATE Form AS QFORM

                ShowModal

END CREATE



SUB Time

                SetWindowPos(Form.Handle, -1, 0, 0, 0, 0,&H2 OR &H1)

END SUB



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