Visual Basic(Microsoft) -VB.NET 2002-2008 FAQ

Public Overrides Sub Initialize(ByVal component As System.ComponentModel.IComponent)
    Try
        Dim visualStudioIDE As EnvDTE.DTE = _
            CType(component.Site.GetService(GetType(EnvDTE.DTE)), EnvDTE.DTE)
        If visualStudioIDE Is Nothing Then Throw New InvalidOperationException("DTE not found.")
        Dim o, projects, mainWindow As Object
        Dim ad As EnvDTE.Document
        Dim aw As EnvDTE.Window
        Dim docs As EnvDTE.Documents
        Dim mode As EnvDTE.vsIDEMode
        Dim solution As EnvDTE.Solution
        Dim windows As EnvDTE.Windows
        With visualStudioIDE
            ad = .ActiveDocument
            projects = .ActiveSolutionProjects
            aw = .ActiveWindow
            docs = .Documents
            o = .GetObject("VBProjects")
            mode = .Mode
            mainWindow = .MainWindow
            solution = .Solution
            windows = .Windows
        End With

        Dim text As String
        For Each [property] As EnvDTE.Property In aw.Project.Properties
            text &= [property].Name & " " & [property].Value.ToString & vbNewLine
        Next
        MsgBox(text, MsgBoxStyle.Information)
        Console.WriteLine("")
        Console.WriteLine(text)

        text = String.Empty
        For Each item As EnvDTE.ProjectItem In aw.Project.ProjectItems
            text &= item.Name & " " & item.FileNames(0) & vbNewLine
        Next
        MsgBox(text, MsgBoxStyle.Information)
        Console.WriteLine("")
        Console.WriteLine(text)

    Catch ex As Exception
        Throw
    End Try
End Sub 'Initialize