Thanks for you Suggestions. :)
It is not actually like DO CASE...
I have also created an Array property "oToolBar.ArrayCmd" before Binding Btn.Click.
*

SET CLASSLIB TO STDLIB
oToolBar = CreateObject('STDTB')
oToolBar.AddProperty('ArrayCmd[1,2]') 
oToolBar.ADDOBJECT(cObjName,'CommandButton')
oToolBar.ArrayCmd[1,1] = cObjName && has Object name and 
oToolBar.ArrayCmd[1,2] = DO...    && has DO... command
bindevent(cObjName, "Click", oToolBar, "myClick", 2)

******oToolBar.myClick******

local nRef,;
      cCmd,;
  cObjName
*
private aBind
*
=AEVENTS(aBind,0)
*
cObjName = upper(aBind[1].name) && upper(this.ActiveControl.name)
nRef     = ascan(this.ArrayCmd, cObjName)
*
if wexist(cObjName)
   activate window (cObjName)
else   
   cCmd = this.ArrayCmd[nRef+1]
   &cCmd
endif

Yes I also thought to create all buttons and set visible to .f., but i wanted to do it this way.

Some Detail are omitted here. if you want the complete code i will send to you.