option explict BlnFlag as boolean public sub Command_Getfocus if .... then BlnFlag =true end subpublic sub Command_MouseDown if BlnFlag =true then exit sub ... end sub
public sub Command_Getfocus if .... then 给另一个可见控件焦点( command2.setfocus) end sub这样就可以了
BlnFlag as boolean
public sub Command_Getfocus
if .... then BlnFlag =true
end subpublic sub Command_MouseDown
if BlnFlag =true then exit sub
...
end sub
if .... then 给另一个可见控件焦点( command2.setfocus)
end sub这样就可以了