If CodeElement2変数.Kind=vsCMElement.vsCMElementProperty Then Dim CodeProperty2変数=DirectCast(CodeElement2変数, CodeProperty2)
以下の一番最後の表を見ると、全部が全部キャストできるわけではないようです。
Solution and Project Objectshttp://codeidol.com/csharp/visual-studio-2005/The-Visual-Studio-Automation-Object-Model/Solution-and-Project-Objects/