changing forecolor in contextmenu

[Amerigo]

I'm trying to let users change the forecolor of my contextmenu, but not every component has the "ForeColor" property. How to I check for that?

For Each Itom In MyMenu.SubItems
If Itom.HasProperty("ForeColor") then '<<< This doesn't work.
Itom.ForeColor = MyColor
End If
Next

I also need to be able to dig down to any and all sub-sub items.