If _vfp.StartMode #0 For padcnt = 1 To Cntpad('_msysmenu') cmenuname = Getpad('_msysmenu', padcnt) nremoved = 0 nMax = Cntbar(Left(cmenuname, 10)) nEmptybars = 0 lFirst = .T. For barcnt = 1 To nMax cbarname = Prmbar(Left(cmenuname, 10), Getbar(Left(cmenuname, ; 10), barcnt - nremoved)) If Not Empty(cbarname) If .Not. ShouldIShowThisMenuBar(Upper(Alltrim(cbarname))) ccmd = "RELEASE BAR " + Transform(barcnt) + " OF " + ; LEFT(cmenuname, 10) &ccmd nremoved = nremoved + 1 lFirst = .T. Else lFirst = .F. Endif Else nEmptybars = nEmptybars + 1 If nEmptybars = 2 nEmptybars = nEmptybars - 1 Endif If nEmptybars = 2 Or lFirst ccmd = "RELEASE BAR " + Transform(barcnt) + " OF " + ; LEFT(cmenuname, 10) &ccmd nremoved = nremoved + 1 Endif Endif Endfor Endfor EndifThe Function called - ShouldIShowThisMenuBar()