Disable/Dim menubar drop down item

[Irshad Alam]

I am using the following code to dim/disable the menubar item, which is
working fine:

Private Sub Form_Activate()
Dim mnu As Object
Set mnu = CommandBars("GTHE")
mnu.Controls(2).Enabled = False
End Sub

Private Sub Form_Close()
Dim mnu As Object
Set mnu = CommandBars("GTHE")
mnu.Controls(2).Enabled = True
End Sub


But my requirement now is not to disable control(2), I need to disable the
drop down no.3 of this control.

I tried to check the website of microsoft, it is there but as I could not
understand, I could not make out.

Please edit the above code to suit my need with some example, so that I can
understand better for future use also.

Regards

Irshad