ByVal p As EnvDTE.Project
Dim file As String = String.EmptyFor Each item As EnvDTE.ProjectItem In p.ProjectItems If item.Name = "AssemblyInfo.vb" Then file = item.FileNames(0) Exit For End IfNext