' Macro Editor
Imports VSLangProj
Public Sub FindExample()
' First project is a Visual Basic or C# project.
Dim theVSProject As VSProject = _
CType(DTE.Solution.Projects.Item(1).Object, VSProject)
Dim refs As References = theVSProject.References
Dim firstIdentity As String = refs.Item(1).Identity
Dim firstRef As Reference = refs.Find(firstIdentity)
' Are they the same object?
Dim isSame As Boolean = (firstRef.Identity = refs.Item(1).Identity)
MsgBox("Are they the same? " & isSame.ToString())
End Sub