... oImage, oGet, lSetAlpha := .t., cUrlImage := SPACE(200) DEFINE DIALOG oDlg FROM 0, 0 TO 24, 60 @ 0, 0 IMAGE oImage SIZE 150, 150 OF oDlg SCROLL // ADJUST oImage:Progress( .f. ) @ 6, 28 BUTTON "Exit" SIZE 50, 10 OF oDlg ACTION oDlg:End() @ 10, 26 CHECKBOX oImage:lStretch PROMPT "Ajustar" ...