PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form Top = 0 Left = 0 Height = 534 Width = 688 DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT lb1 AS label WITH AutoSize=.t.,top=200,left=100,Caption='Change size and click on form; then move' ADD OBJECT check1 AS checkbox WITH ; Top = 32, ; Left = 37, ; Height = 17, ; Width = 60, ; Caption = "Move", ; Value = .F., ; Name = "Check1" ADD OBJECT spinner1 AS spinner WITH ; Height = 24, ; KeyboardHighValue = 72, ; KeyboardLowValue = 4, ; Left = 108, ; SpinnerHighValue = 72.00, ; SpinnerLowValue = 4.00, ; Top = 29, ; Width = 121, ; ControlSource = "THISFORM.FONTSIZE", ; Name = "Spinner1" PROCEDURE MouseMove LPARAMETERS nButton, nShift, nXCoord, nYCoord STORE MCOL() TO nXCoord STORE MROW() TO nYCoord IF ThisForm.Check1.Value AND POPUP('pp_test') MOVE POPUP pp_test TO m.nYCoord,m.nXCoord ELSE DEACTIVATE POPUP pp_test DEFINE POPUP pp_test FROM m.nYCoord,m.nXCoord DEFINE BAR 1 OF pp_test PROMPT 'BUG BUG BUG' ACTIVATE POPUP pp_test NOWAIT ENDIF THISFORM.DRAW() ENDPROC PROCEDURE Destroy RELEASE POPUPS pp_test ENDPROC ENDDEFINERun code.