oForm = CREATEOBJECT("Form") pLeft = sysmetric(1)-135 WITH oForm .Name = [Test] .Caption = [Alert] .AlwaysOnTop = .t. .WindowState = 0 .Left = pLeft .MinButton = .f. .MaxButton = .f. .Height = 100 .Width = 130 ENDWITH pTop = sysmetric(2) FOR nCo = 1 to 300 pTop = pTop-1 oForm.Top = pTop oForm.Show(0) ENDWITH ENDFOR WAIT oForm.release() oForm = .NULL.