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
|