Private Sub Form_Load()
  Dim oMenu As sevMenuXP.MenuItem
 
  With MenuBar1.MenuItems
    Set oMenu = .Add("Menu1", "Menu1")
    .Add "Item1", "Menu1_Item1", oMenu
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de