50分！权限中的菜单问题

Question

dim ls_menu as string
ls_menu="mnuAdd"请问我如何把字符型的mnuAdd转换为某个menu变量，实现
mnuAdd.visible=false因为我把菜单名（name属性）存在了数据库中

Answer 1

dim ls_menu as string
ls_menu="mnuAdd"
Me.Controls(ls_menu).visible=false

Answer 2

Me.Controls(ls_mnu).Visible = False  可以实现

Answer 3

权限管理我已完成，谢谢大家
但还想解决2个问题，一并把这分送掉！！：
1、
Private Sub Form_Load()
TreeView1.Nodes.Add , , "Root", "Root"
TreeView1.Nodes.Add "Root", tvwChild, "A", "A"
TreeView1.Nodes.Add "Root", tvwChild, "B", "B"
Dim i As Integer
For i = 1 To TreeView1.Nodes.Count
    TreeView1.Nodes(i).Checked = True
Next i
End Sub
上例不加图片，则全部能选中。但上例中若加入图片，则全部不能选中。why????2我想treeview中的蓝底白字不出现，即选择不出现