Try Like This
For Each c As Control In uForm.components.Components
If TypeOf c Is ContextMenuStrip Then
Dim n As ContextMenuStrip
n = DirectCast(c, ContextMenuStrip)
For Each c2 As ToolStripMenuItem In n.Items
MsgBox(c2.Text)
Next
End If
Next
I tested Like this : This is you want?
For Each c As Control In Me.components.Components
If TypeOf c Is ContextMenuStrip Then
MsgBox("sadfsadfsd")
End If
Next