Hi all -
I posted a message here yesterday about a cast from EnvDTE.Project to
VSLangProj.VSProject failing. I now have a reproducible snippet of code (see
below). The thing is, this only fails on my Windows XP laptop - on two
different Win 2000 machine it runs fine. If similar code is called from an
add-in on the Win XP machine, everything runs fine. I'm suspecting it has
something to do with the way I'm creating the DTE instance, but can't be
sure - any idea?

TIA -
Dan

Dim oType As System.Type
Dim oDTE As EnvDTE.DTE

'Get a type for the DTE object

oType = System.Type.GetTypeFromProgID("VisualStudio.DTE.7.1")

'Create it and cast

Dim oObj As Object = System.Activator.CreateInstance(oType, True)

oDTE = CType(oObj, EnvDTE.DTE)

'Open any solution with at least one project

Call oDTE.ExecuteCommand("File.OpenSolution", """PLACE ANY FULL SOLUTION
PATH HERE""")

'Find the first project in the solution and attempt to cast to VSProject

Dim oProject As EnvDTE.Project = oDTE.Solution.Item(1)

Dim oVSProject As VSLangProj.VSProject

Try

oVSProject = oProject.Object

'The cast worked, prove it.

Call MsgBox("Cast succeeded. Project has " & oVSProject.References.Count & "
references.")

Catch ex As Exception

Call MsgBox("Error: " & ex.Message)

End Try

oDTE.Quit()