Problem in running vFox 9

Question

Dear sir/madam

I have no problem to run the following coding on Fox 2.5 but not Vfox 9, kindly advise why "QMARK2.bmp, Click your choice, Continue and Cancel" disappear before I make the selection.

---

PROCEDURE SELECT

PARAMETERS option
PRIVATE pshbutton, topwin

STORE 1 TO pshbutton
topwin = UPPER(ALLTRIM(WONTOP()))

IF ! EMPTY(topwin)
IF AT(" ", topwin) > 0
STORE LEFT(topwin, AT(" ", ;
ALLTRIM(topwin)) -1) TO topwin
ENDIF

HIDE WINDOW (topwin)
ENDIF

STORE 1 TO pshbutton
ACTIVATE SCREEN
DEFINE WINDOW bugbox ;
AT 0.000, 0.000 ;
SIZE 4.474,42.857 ;
FONT "Arial", 12 ;
FLOAT ;
TITLE m_wname ;
NOMINIMIZE ;
DOUBLE ;
COLOR R++/*W

MOVE WINDOW bugbox CENTER

ACTIVATE WINDOW bugbox noshow
@ 0.632,1.714 SAY "QMARK2.bmp" BITMAP ;
SIZE 1.684,8.571 ;
STYLE "T"
@ 0.947,12.571 SAY "Click your choice" ;
FONT "Arial", 12 ;
STYLE "BT"
@ 2.895,9.286 GET pshbutton ;
PICTURE "@*HT \<Continue;\<Cancel" ;
SIZE 1.769,13.667,1.333 ;
DEFAULT 1 ;
FONT "MS Sans Serif", 8 ;
STYLE "B"

SHOW WINDOW bugbox

READ

RELEASE WINDOW bugbox

IF pshbutton = 1

option = "Y"

ELSE

option = "N"

ENDIF (pshbutton = 1)

IF ! EMPTY(topwin)
ACTIVATE WINDOW (topwin)
ENDIF

SET COLOR TO N*/BG++,GR*+++/R

RETURN option
* End procedure SELECT

---

Thank you very much
Steven