Application VisualBasic Script

Sub DeleteMenuItem()
    On Error Resume Next
    CommandBars(1).FindControl(Id:=30007).Controls("&yourControl").Delete
End Sub