// localScope is a UDT

// localScope is probably a UDT
var udt = ResolveType(localScope);
if (udt != null)
{
    callee = _declarations[identifierName].SingleOrDefault(item => item.Context != null && item.Context.Parent == udt.Context);
}

[assembly: AssemblyVersion("1.4.*")]
[assembly: AssemblyFileVersion("1.4.0.0")]

            try
            {
                var parent = matches.SingleOrDefault(item =>
                    item.ParentScope == localScope.Scope
                    && !_moduleTypes.Contains(item.DeclarationType));

                return parent;
            }
            catch (InvalidOperationException)
            {
                // debug me
                return null;
            }

Private Type tView
    Model As SqlResult
    Selection As SqlResultRow
    Callback As ICommandCallback
End Type

                return matches.SingleOrDefault(item =>
                    item.ProjectName == libraryName
                    && (item.Accessibility == Accessibility.Public
                        || item.Accessibility == Accessibility.Global
                        || item.Accessibility == Accessibility.Friend
                        || item.Accessibility == Accessibility.Implicit)
                    && (_moduleTypes.Contains(item.DeclarationType))
                    || (item.DeclarationType == DeclarationType.UserDefinedType

Sub Main()

    Dim c As New Class5

    c.Name("John", "M") = "Smith"

    Debug.Print c.Name("John", "M")

End Sub

Private firstName As String
Private middleName As String
Private lastName As String

Public Property Get Name(first As String, middle As String) As String
    Name = firstName & " " & middleName & " " & lastName
End Property

Public Property Let Name(first As String, middle As String, last As String)
    firstName = first
    middleName = middle
    lastName = last
End Property

  <data name="Key_InstructionsLabelText" xml:space="preserve">
    <value>Value</value>
  </data>

Sub Main()

    Dim c As New Class5

    c.Name("John", "M") = "Smith"

    Debug.Print c.Name("John", "M")

End Sub

Private firstName As String
Private middleName As String
Private lastName As String

Public Property Get Name(first As String, middle As String) As String
    Name = firstName & " " & middleName & " " & lastName
End Property

Public Property Let Name(first As String, middle As String, last As String)
    firstName = first
    middleName = middle
    lastName = last
End Property

Sub Main()
    Dim thisFoo As Class4
    Set thisFoo = New Class4

    Dim cls7 As Class7
    Set cls7 = New Class7
    Set cls7.Foo("Hi!", 9) = thisFoo

    Dim Goo As Class4
    Set Goo = cls7.Foo("Hi!", 9)

End Sub

Public Event Foo(ByVal arg1 As Integer, ByVal arg2 As String)

Private Sub Bar()

    Dim test1 As Integer
    test1 = 3

    Dim test2 As String
    test2 = "test"

    RaiseEvent Foo(4, "Hi!")
    RaiseEvent Foo(test1, test2)

End Sub

Private myFoo As Class4

Public Property Get Foo(Test As String, test1 As Integer) As Class4
    Set Foo = myFoo
End Property

Public Property Set Foo(Test As String, test1 As Integer, newFoo As Class4)
    Set myFoo = newFoo
End Property