Hi Smithers-Jones, With the given code is working fine but, its looping through all the menuitems that are in the form. But I want to checkfor few menus (that will come from recordset) only. so from your given code, if I check mi.Name, Im not getting menu name. like as follows, Dim str as String = recset("cname") for each mi as menuitem in frmmain.definstance.controls if mi.Name == str if mi.visible = true then 'your code end if next So i am not able to check visibility property for few menu items. How can I do this. Please let me know the solution if you get a chance to look into this. Thanks in Advance,
AR Reddy