>LPARAMETERS nStyle > >LOCAL llHideBar, loPrevBar > >DODEFAULT(nStyle) > >*--- If the bar is first in the list, hide it >IF this.nbarnumber = 1 > llHideBar = .T. >ELSE > *--- If the previous bar is a separator, hide it > loPrevBar = this.Parent.Get(this.nbarnumber-1) > IF LOWER(loPrevBar.Class) = "cseparatorbar" > llHideBar = .T. > ENDIF >ENDIF > >IF llHideBar > this.Hide() >ENDIF >>