支持宏替换吗？
dim mymenu as string
mymenu="RefgrgToolStripMenuItem.Enabled = False"

&mymenu出错
请问如何让变量mymenu所代表的语句执行？

my = "RefgrgToolStripMenuItem.Enabled = True"
        Dim sc As New Object
        sc = CreateObject("ScriptControl")
        sc.language = "VBScript"
        'sc.addcode(my)
        sc.ExecuteStatement(my)
        sc.run("Main")
对象: 'RefgrgToolStripMenuItem'明明存在的，为何提示：
缺少对象: 'RefgrgToolStripMenuItem'

dim mymenu as string
mymenu="RefgrgToolStripMenuItem"
Me.Controls(mymenu).Enabled = False"
或
Me.Controls("RefgrgToolStripMenuItem").Enabled = False
均会出错，为何？

RefgrgToolStripMenuItem.Enabled = False
因为这样是可以的，证明菜单的对象名称没错

虽然通过遍历所有控件菜单，如果名称相同，则修改其enabled属性，可以达到我要的效果，但感觉速度会有点慢
是想简化菜单权限的控制代码

我将所有菜单的名称都被我保存在一张表中，通过权限表单设置了每个人的权限
现在想从表中取出菜单控件名称，直接根据权限值修改enabled属性

菜单还有Find功能啊，这样改一下快多了