سلام دوستان من خیلی توی نت گشتم ولی نتونستم راهی برای حل این مشکل پیدا کنم
من در حال ساخت یک ocx زیبا سازی هستم که بخشی از کارش اینه که باید منوی های فرم رو مخفی کنم و به جاش منوی شخصی که جزیی از اسکین هست جایگزین کنم
برای هر منو که در فرم ساخته شده یک منوی شخصی ظاهر میشه که منوی اصلی رو از طریق اون باز میکنه
دوستان دقت کنید که نام منوی والد مشخص نیست چی هست چون منو ها توسط کاربر ساخته میشه برنامه باید خودش تشخیص بده منوی فرزند کدوم ها هستن و والد کدوم ها
و من نیاز دارم منوی های والد رو مخفی کنم که این کد رو نوشتم ولی این تمام منو ها رو مخفی میکنه
میخوام فقط منوی های والد مخفی بشن ممنون میشم کمک کنید 




Private Sub Form_Load()

On Error Resume Next

    Dim Cot As Control

    For Each Cot In Me.Controls

        If TypeOf Cot Is Menu Then

             Cot.Visible = False

        End If

    Next

End Sub