[Хотабыч]

Делаю вот таким образом кнопку:

Код:

[Выделить все]

Option Explicit

Public Sub CreateIfMissing()
  Dim objMenuGrp As AcadMenuGroup
  Dim objTbarCol As AcadToolbars
  Dim objTbar As AcadToolbar
  Dim objItem As AcadToolbarItem
  Dim blnExist As Boolean
  Dim strMacro As String
  strMacro = "_-vbarun LayersOn "
  Set objMenuGrp = ThisDrawing.Application.MenuGroups(0)
  Set objTbarCol = objMenuGrp.Toolbars
  For Each objTbar In objTbarCol
    If objTbar.Name = "Tulzz" Then
      objTbar.Delete
      blnExist = False
    End If
  Next objTbar
  If Not blnExist Then
    Set objTbar = objTbarCol.Add("Tulzz")
    Set objItem = objTbar.AddToolbarButton("", "Sunshine", _
    "....", strMacro)
    objItem.SetBitmaps "e:\fun\lamp16.bmp", "e:\fun\lamp32.bmp"
    objTbar.Visible = True 'view it!
    objTbar.Float 200, 200, 1
    'objTbar.Dock acToolbarFloating
  End If
End Sub



Public Sub LayersOn()
Dim l As AcadLayer
For Each l In ThisDrawing.Layers
  l.LayerOn = True
Next l
End Sub

но после перезапуска када
кнопка вместе с панелью исчезает
кто-нить знает в чём может быть причина?

[VetalBY]

имхо надо файл меню сохранить

Код:

[Выделить все]

    objMenuGrp.Save (acMenuFileSource)
    objMenuGrp.Save (acMenuFileCompiled)

[Хотабыч]

щас попробую