>>thisform.ActiveControl
>
>Yes it Worked!!!

<snip>

>If BindEvent could pass parameters suppose
>BindEvent(&cObjName, "Click", oToolBar, "myClick('&cObjName')", 2)
>I wouldn't need thisform.ActiveControl.
>.
>The Task was to Create a ToolBar According to Users Rights.

use

oToolBar.ADDOBJECT(M.cObjName,'CommandButton')

BindEvent(M.cObjName, "Click", oToolBar, "myClick", 2)

*  myClick
PRIVATE aBind
do case
    case empty(AEVENTS(aBind,0))
       RETURN
   case aBind[1] = m.thisform.CmdButton1
     do ...
   case aBind[1] = m.thisform.CmdButton1
     do ...
endcase