PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form Height = 223 Width = 358 Caption = "Form1" Name = "Form1" * COMMENT NEXT LINE FOR NOT SCROLLABLE ScrollBars = 2 ADD OBJECT command1 AS commandbutton WITH ; Top = 208, ; Left = 279, ; Height = 27, ; Width = 84, ; Caption = "Popup", ; Name = "Command1" PROCEDURE Activate ScrollBars = 2 WAIT WINDOWS "FORM ACTIVATE" TIMEOUT 10 ENDPROC PROCEDURE Deactivate WAIT WINDOWS "FORM DEACTIVATE" TIMEOUT 10 ENDPROC PROCEDURE command1.Click DEFINE POPUP popProva FROM 0,2 IN (m.thisform.Name) DEFINE BAR 1 OF popProva PROMPT "bar 1" DEFINE BAR 2 OF popProva PROMPT "bar 2" thisform.Cls @ 3 ,1 SAY "BEFORE ACTIVATE" ACTIVATE POPUP popProva @ $+1,1 SAY "AFTER ACTIVATE" DEACTIVATE POPUP popProva RELEASE POPUP popProva ENDPROC ENDDEFINEFabio