Hi Mark,
I use Your MenuLib.vcx. Thanks for this class.It is very usefull.Here is my problem. Before I move from VFP 6.0 to VFP 8.0 there is no problem at all,but now when my application starts in older machines with Win95 instaled some of the menupads are not visible (only seprarators are). On machines with Win98 and greater everything is fine. Here is my code:

_SCREEN.LockScreen = .t.
_SCREEN.AddObject("Menu","Menu")
WITH _SCREEN.Menu
     .AutoIcon = .t.
     .AddObject("Sallary","MenuPad")
     .AddObject("Kadri"  ,"MenuPad")
     .AddObject("Otpusk" ,"MenuPad")
     .AddObject("Honorar","MenuPad")
     .AddObject("PayDoc" ,"MenuPad")
     .AddObject("Nom"    ,"MenuPad")
     .AddObject("Admin"  ,"MenuPad")
     .AddObject("Windows","MenuPad")
     .AddObject("Help"   ,"MenuPad")
ENDWITH

WITH _SCREEN.Menu.Sallary
     .Caption = GetLangVal("Ðàáîòíà çàïëàòà", 4, eLang)
     .AddObject("DataEnter","MenuPad")
     .AddObject("Spacer1","MenuPad")
     .AddObject("Vedomost","MenuPad")
     .AddObject("Spacer2","MenuPad")
     .AddObject("Spravki","MenuPad")
     .AddObject("Spravki","MenuPad")
     .AddObject("Spacer3","MenuPad")
     .AddObject("Servis","MenuPad")
     .AddObject("Spacer4","MenuPad")
     .AddObject("Account","MenuPad")

     .AddObject("Spacer99","MenuPad")
     .AddObject("Exit","MenuPad")
     WITH .DataEnter
          .Caption = "Data enter"
          .AddObject("Personal","MenuPad")
          .AddObject("Spacer1","MenuPad")
          .AddObject("Speed","MenuPad")
          .AddObject("MasOper","MenuPad")
          .AddObject("Spacer2","MenuPad")
          .AddObject("Deponent","MenuPad")
          .Personal.Caption  = "Personel"
          .Personal.Command  = '=oApp.DoForm("Vhod",0)'
          .Personal.Visible  = .t.
          .Personal.SkipWhen = "SkipMenu[1,1]"
          .Spacer1.Caption   = "\-"
          .Spacer1.Visible   = .t.

          .Speed.Caption     = "Speed"
          .Speed.Command     = '=oApp.DoForm("Speed")'
          .Speed.Visible     = .t.
          .Speed.SkipWhen    = "(SkipMenu[1,2] .OR. fl_oldper)"
          .MasOper.Caption   = "Mass operation"
          .MasOper.Command   = '=oApp.DoForm("MasOper")'
          .MasOper.SkipWhen  = "(SkipMenu[1,3] .OR. fl_oldper)"
          .MasOper.Visible   = .t.
          .Spacer2.Caption   = "\-"
          .Spacer2.Visible   = .t.
          ...
     ENDWITH
     .Spacer1.Caption = "\-"
     .Spacer1.Visible = .t.
     .Spacer2.Caption = "\-"
     .Spacer2.Visible = .t.
     .Spacer3.Caption = "\-"
     .Spacer3.Visible = .t.
     .Spacer4.Caption = "\-"
     .Spacer4.Visible = .t.
ENDWITH

...
_SCREEN.LockScreen = .f.