Dear Experts
On the click event of command button, I use following codes to open Forms.
All Forms open correctly, but sometimes, when I click command button then nothing happend. I mean no Form opens.
Please modfiy codes to work properly.
LOCAL SELEP
SELE=0
DEFINE POPUP ABC SHORTCUT RELATIVE FROM 8,75 TO 24,110 TITLE 'A B O U T'
DEFINE BAR 1 OF ABC PROMPT '\<1- The Prgrammer'FONT "Verdana",10 STYLE 'B' COLOR ,RGB(0,0,0,213,224,255)
DEFINE BAR 2 OF ABC PROMPT '\<2- The software'FONT "Verdana",10 STYLE 'B' COLOR ,RGB(0,0,0,213,224,255)
DEFINE BAR 3 OF ABC PROMPT '\<3- About us'FONT "Verdana",10 STYLE 'B' COLOR ,RGB(0,0,0,213,224,255)
DEFINE BAR 4 OF ABC PROMPT '\-'
DEFINE BAR 5 OF ABC PROMPT '\<4- Computer'FONT "Verdana",10 STYLE 'B' COLOR ,RGB(0,0,0,213,224,255)
ON SELECT BAR 1 OF ABC SELEP =1
ON SELECT BAR 2 OF ABC SELEP =2
ON SELECT BAR 3 OF ABC SELEP =3
ON SELECT BAR 4 OF ABC SELEP =4
ON SELECT BAR 5 OF ABC SELEP =5
Activate POPUP ABC
DO CASE
CASE SELEP=1
DO form aware
CASE SELEP=2
DO form help
CASE SELEP=3
DO form system1
ENDCASE
thisform.REFRESH