I'm making an Add-in that needs to loop through all the codeElements and
their children and add them to a listview.  I have a big if
typeof(codeElement) is blah then ... elseif typeof(codeElement) is blah
then... conditional.  I'm having a problem on the elseif typeof(codeElement)
is CodeFunction then block.  It falls into the if block as if the condition
is true, but if I set a break point on the first line after the elseif ...
CodeFunction Then line and check the condition, it's false.  If I check
TypeOf(codeElement) Is CodeElement, I get false as well.  If I check
codeElement.Name, I get the name of the function, so it SHOULD be a
CodeFunction, and it DEFINATELY should be a CodeElement, since that's what
the variable codeElement was declared as.  Here's my code:

   Private Sub AddCodeElement(ByVal baseNode As TreeNode, ByVal codeElement
As CodeElement)
       Try
           Dim elementNode As TreeNode
           Dim childElement As CodeElement
           If TypeOf (codeElement) Is CodeNamespace Then
               elementNode = baseNode.Nodes.Add("Namespace: " &
codeElement.Name)
               For Each childElement In CType(codeElement,
CodeNamespace).Members
                   AddCodeElement(elementNode, childElement)
               Next
           ElseIf TypeOf (codeElement) Is CodeStruct Then
               elementNode = baseNode.Nodes.Add("Struct: " &
codeElement.Name)
               For Each childElement In CType(codeElement,
CodeStruct).Members
                   AddCodeElement(elementNode, childElement)
               Next
           ElseIf TypeOf (codeElement) Is CodeInterface Then
               elementNode = baseNode.Nodes.Add("Interface: " &
codeElement.Name)
               For Each childElement In CType(codeElement,
CodeInterface).Members
                   AddCodeElement(elementNode, childElement)
               Next
           ElseIf TypeOf (codeElement) Is CodeClass Then
               elementNode = baseNode.Nodes.Add("Class: " &
codeElement.Name)
               For Each childElement In CType(codeElement,
CodeClass).Members
                   AddCodeElement(elementNode, childElement)
               Next
           ElseIf TypeOf (codeElement) Is CodeEnum Then
               elementNode = baseNode.Nodes.Add("Enum: " &
codeElement.Name)
               For Each childElement In CType(codeElement,
CodeEnum).Members
                   AddCodeElement(elementNode, childElement)
               Next
           ElseIf TypeOf (codeElement) Is CodeVariable Then
               elementNode = baseNode.Nodes.Add("Variable: " &
codeElement.Name)
               ' CodeVariable doesn't have a members collection.
           ElseIf TypeOf (codeElement) Is CodeDelegate Then
               elementNode = baseNode.Nodes.Add("Delegate: " &
codeElement.Name)
               For Each childElement In CType(codeElement,
CodeDelegate).Members
                   AddCodeElement(elementNode, childElement)
               Next
           ElseIf TypeOf (codeElement) Is CodeProperty Then
               elementNode = baseNode.Nodes.Add("Property: " &
codeElement.Name)
               ' CodePropety doesn't have a members collection.
           ElseIf TypeOf (codeElement) Is CodeFunction Then
               elementNode = baseNode.Nodes.Add("Function: " &
codeElement.Name)
               For Each childElement In CType(codeElement,
CodeFunction).Parameters
                   AddCodeElement(elementNode, childElement)
               Next
           End If
       Catch ex As Exception
           MsgBox(String.Format("The following error occurred while " & _
               "adding a codeElement node to the tree.{0}{0}{1}", _
               ControlChars.CrLf, ex.Message), _
               MsgBoxStyle.OKOnly Or MsgBoxStyle.Exclamation, "Error")
       End Try
   End Sub

If I set a break point on the
   elementNode = baseNode.Nodes.Add("Function: " & codeElement.Name)
line and when it breaks check the condition TypeOf (codeElement) Is
CodeFunction, it will be False even though it must be true for it to have
gotten to that line.  If I continue, it hits an exception on the next line
where I try to cast codeElement as a CodeFunction.

Help!!! :)

-----
Lee