TITLE:  [99] メニューバーについて教えてください
DATE : 2001-07-25 16:53:00
--------------------------------------------------
こんにちわ、a-murataです。

以下のコードのように

Private Sub InitializeMenu()

    Dim MenuItems
   
    Set MenuItems = main.MenuBar1.Controls.AddMenu("ツール")
    MenuItems.Items.Add , , "単語帳に追加"

End Sub

このようにしてメニューを作成して

Private Sub MenuBar1_MenuClick(ByVal Item As MenuBarLib.Item)
    Dim Response As Integer
    
    Select Case Item.Caption
        'Exit the game
        Case "単語帳に追加"
            File1.Open App.Path & "\tango.txt", fsModeAppend
            File1.LinePrint Text1.SelText
            File1.Close
    End Select
End Sub

のようにしてメニュー処理をしていますが
「新規」メニューというのがデフォルトで出てきて
しまいます。コードを記述していないので
タップしてもなにも動作はしないのですが
使わないメニューがあってもしょうがないので
これを削除したいのですが、方法が
わかりません。

どのようにすればメニューから「新規」を
削除できるのか、教えていただけませんでしょうか？
よろしくお願いします。