PUBLIC oForm as Form oForm = CREATEOBJECT('TestForm') oForm.Show() RETURN DEFINE CLASS TestForm as Form ShowWindow = 2 PROCEDURE Load CREATE CURSOR temp (test1 Char(10), test2 Int) LOCAL i FOR i = 1 TO 64 INSERT INTO temp VALUES ( CHR(i+64), i ) ENDFOR GO TOP ENDPROC PROCEDURE Init DECLARE SetWindowLong In Win32Api ; Integer, Integer, Integer DECLARE SetLayeredWindowAttributes In Win32Api ; Integer, String, Integer, Integer SetWindowLong(ThisForm.HWnd, -20, 0x00080000) SetLayeredWindowAttributes(ThisForm.HWnd, 0, 120, 2) ENDPROC ADD OBJECT grdTest as Grid WITH ; RecordSource = 'temp', ; ColumnCount = 2 PROCEDURE grdTest.Init This.Move(0,0,Thisform.Width,Thisform.Height) This.Anchor = 15 ENDPROC ENDDEFINE