Private Sub Form_Load()
  Dim oItem As sevMenuXP.MenuItem
  With MenuBar1.MenuItems
    Set oItem = .Add("headItem")
    .Add "item1", , oItem
  End With
End Sub
 
Private Sub MenuBar1_ItemClick(ByVal Item As sevMenuXP.MenuItem)
  Form2.Show vbModal
End Sub
 
Private Sub roCommand1_Click()
  Stop
End Sub