Dear Experts

(1) Command Button=Click Event has following codes

DEACTIVATE POPUP ABC
thisform.arrival1
THISFORM.Refresh

(2) Command Button=GotFocus has following codes

this.forecolor=rgb(128,0,255)
this.fontbold=.t.
DEACTIVATE POPUP ABC
LOCAL SELE
SELE=0
DEFINE POPUP ABC SHORTCUT RELATIVE FROM 8,75 TO 24,110  TITLE 'A R R I V A L'
DEFINE BAR 1 OF ABC PROMPT '\<1- Arrival Kapas'FONT "Verdana",10 style 'B' COLOR ,RGB(0,0,255,181,239,208)
DEFINE BAR 2 OF ABC PROMPT '\<2- Flow Register'FONT "Verdana",10 COLOR ,RGB(0,0,255,255,255,255)
DEFINE BAR 3 OF ABC PROMPT '\<3- Gate Wise'FONT "Verdana",10 COLOR ,RGB(0,0,255,255,255,255)
ON SELECT BAR 1 OF ABC SELE =1
ON SELECT BAR 2 OF ABC SELE =2
ON SELECT BAR 3 OF ABC SELE =3
ACTIVATE POPUP ABC NOWAIT
THISFORM.REFRESH

(3) Form1=Arrival1 Event has following codes

LOCAL SELE
SELE=0

DEFINE POPUP ABC SHORTCUT RELATIVE FROM 8,75 TO 24,110 TITLE 'A R R I V A L'

DEFINE BAR 1 OF ABC PROMPT '\<1- Arrival Kapas'FONT "Verdana",10 style 'B' COLOR ,RGB(0,0,255,181,239,208)
DEFINE BAR 2 OF ABC PROMPT '\<2- Flow Register'FONT "Verdana",10 COLOR ,RGB(0,0,255,255,255,255)
DEFINE BAR 3 OF ABC PROMPT '\<3- Gate Wise'FONT "Verdana",10 COLOR ,RGB(0,0,255,255,255,255)

ON SELECT BAR 1 OF ABC SELE =1
ON SELECT BAR 2 OF ABC SELE =2
ON SELECT BAR 3 OF ABC SELE =3

ACTIVATE POPUP ABC

DO CASE
CASE SELE=1
	DO FORM PARRIVAL
CASE SELE=2
	DO FORM PFLOW
CASE SELE=3
	DO FORM PGTWISE
ENDCASE
THISFORM.REFRESH

These above all procedures work fine in VFP6.
When I run these codes in VFP9, it shows following behaviour
-Sometimes everything work fine
-Sometimes following parts do not work

DO CASE
CASE SELE=1
	DO FORM PARRIVAL
CASE SELE=2
	DO FORM PFLOW
CASE SELE=3
	DO FORM PGTWISE
ENDCASE

Popup abc and all Bar activates but no FORM loads, no error message appears
The I have to quit my EXE.

What is mistke, please help