Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports EnvDTE100
Imports System.Diagnostics

Imports System.Windows.Forms
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.IO
Imports System.Web

Public Module xEditUtility

    Sub GroupFile()
        Dim lvProcesses As New ListView

        For I As Int32 = 1 To DTE.SelectedItems.Count
            Dim item As EnvDTE.SelectedItem = DTE.SelectedItems.Item(I)
            Dim lvi As New ListViewItem

            lvi.Tag = item
            lvi.Text = item.Name
            lvProcesses.Items.Add(lvi)
        Next

        If lvProcesses.Items.Count < 2 Then
            Return
        End If

        Dim frm As New Form
        Dim btn As New Button

        btn.Text = "OK"
        btn.DialogResult = DialogResult.OK

        frm.Controls.Add(btn)
        frm.Width = 300
        frm.Text = "Choose the file to be used as root"
        btn.Dock = DockStyle.Bottom
        frm.Controls.Add(lvProcesses)
        lvProcesses.Dock = DockStyle.Fill
        lvProcesses.View = View.Details
        lvProcesses.Columns.Add("Name", 300, HorizontalAlignment.Left)
        lvProcesses.FullRowSelect = True

        If frm.ShowDialog() = DialogResult.OK Then
            Dim selected As EnvDTE.SelectedItem = lvProcesses.SelectedItems.Item(0).Tag
            For I As Int32 = 0 To lvProcesses.Items.Count - 1
                Dim item As EnvDTE.SelectedItem = lvProcesses.Items.Item(I).Tag
                If item.Name <> selected.Name Then
                    selected.ProjectItem.ProjectItems.AddFromFile( _
                        item.ProjectItem.FileNames(0))
                End If
            Next
        End If
    End Sub

End Module