Function Select-ItemsWithListBoxes {
    <#
.Synopsis
Use a form with two list boxes to select items from list, or properties of objects in list,
passing the results down the pipeline

.DESCRIPTION
This script uses a WPF form with two listbox columns to allow the user to select items from a list.
This allows you to choose the order of and which items will be selected.
When used with SelectProperties switch, user chooses from the properties of the input object, 
returns object with selected properties down the pipeline

.PARAMETER InputObject
Initial list for left panel 

.PARAMETER FormTitle
Optional title for form

.PARAMETER Color
Optional background. May use .Net color names or values

.PARAMETER SelectProperties
Choose from the properties of the input object, and return object with selected properties down the pipeline

.EXAMPLE
#Get list of characters.
$list = (33..126 | ForEach-Object{[char][byte]$_})
# Note that with a simple list you cannot use the pipeline.
Select-ItemswithListboxes -inputobject $list

.EXAMPLE
#Get all domain names, sort and present in form with custom title
$doms = ([System.DirectoryServices.ActiveDirectory.Forest]::GetCurrentForest()  |    
Select-Object domains).Domains.name | 
sort-object -CaseSensitive
#Note that with a simple list you cannot use the pipeline.
Select-ItemsWithListBoxes -formtitle "Choose Domains to Query" -InputObject $doms

.Example
#Get first 10 of all users with all properties, send to function to select properties
$params = @{
    Filter        = '*'
    properties    = '*'
    SearchScope   = 'Subtree'
    ResultSetSize = 10
}
#Here you can use the pipeline
get-aduser  @params | 
Select-ItemsWithListBoxes -SelectProperties

.Notes
Alan Kaplan 1/4/2018
Functions process block accepts one item at a time.  If you only see
one item in left column, assign the list to a variable, and use that as the inputobject

The form XML is from Visual Studio. Method to use with PS is from
https://foxdeploy.com/2015/04/16/part-ii-deploying-powershell-guis-in-minutes-using-visual-studio/

If form is closed, test for '', not $null
#>
    #Requires -version 3
    [CmdletBinding(
        SupportsShouldProcess = $false
    )]
    [OutputType([object])]
    Param
    (
        [Parameter(Mandatory = $True,
            ValueFromPipeline = $true,
            Position = 0)]
        [Object[]]$InputObject,

        # Optional Form title
        [string]
        $formTitle = 'Choose in the order you want processed',

        #Optional form background color, default is a light blue
        [string]
        $color = '#b3dbff',
           
        #Display an choose properties only
        [Switch]
        $SelectProperties
    )

    Begin {$FirstRun = $True}
    Process {
        if ($firstRun) {
            #only build form to select properties for first member of pipeline
            $script:SelectedItems = ''

            #XML from Visual Studio designed WPF form
            $InputXML = @"
<Window x:Name="SelectForm" x:Class="MainWindow"
        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
        xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
        xmlns:local="clr-namespace:WpfApp3"
        mc:Ignorable="d"
        Title= "$formTitle" Height="525" Width="600"  WindowStyle="ThreeDBorderWindow" >
    <StackPanel>
        <Grid>
            <!-- Three columns, equal width
                This will autosize contents
                -->
            <Grid.ColumnDefinitions>
                <ColumnDefinition Width="2*" />
                <ColumnDefinition Width="*"/>
                <ColumnDefinition Width="2*"/>
            </Grid.ColumnDefinitions>
            <!-- First Listview in col 0
                Margins are Left, Top Right Botton
                Middle button a bit larger, but this preserves layout if resized
                -->
            <ListBox x:Name="lb_OriginalList" Grid.Column="0" SelectionMode="Extended" Height="460" Margin="5 10 1 1"></ListBox>
            <StackPanel Grid.Column="1"  Margin="1 10 1 5" >
                <Button x:Name="toRightButton"  Margin="10 100 10 10"   
                Content="Move &gt;&gt;" 
                ToolTip="Move selected to right panel">
                <Button.Effect><DropShadowEffect/></Button.Effect>

                </Button>
                <Button x:Name="toLeftButton" Margin="10 10 10 10"  
                Content="&lt;&lt; Move"
                ToolTip="Move selected to left panel">
                <Button.Effect><DropShadowEffect/></Button.Effect>
                </Button>
                
                <Button x:Name="Accept"  Margin="10 100 10 10"   
                Content="Accept"
                IsDefault="True"
                ToolTip="Accept list in right column, and close form">
                <Button.Effect><DropShadowEffect/></Button.Effect>
                </Button>
            </StackPanel>
            <ListBox x:Name="lb_SelectedItems" Grid.Column="2" SelectionMode="Extended" Height="460" Margin="1 10 5 1" ></ListBox>
        </Grid>
    </StackPanel>
</Window>
"@
            $inputXML = $inputXML -replace 'mc:Ignorable="d"', '' -replace "x:N", 'N' -replace '^<Win.*', '<Window'
 
            Add-Type -assemblyName PresentationFramework
            [xml]$XAML = $inputXML

            #Read XAML

            try {
                $reader = (New-Object System.Xml.XmlNodeReader $xaml)
                $script:Form = [Windows.Markup.XamlReader]::Load( $reader )
            }
            catch {
                Write-Warning 'Unable to load Windows.Markup.XamlReader. Ensure .Net is installed.'
                Exit
            }

            # Load XAML Objects In PowerShell as WPF* variables
            $xaml.SelectNodes("//*[@Name]") | ForEach-Object {Set-Variable -Name "WPF$($_.Name)" -Value $Form.FindName($_.Name)}
 
            $WPFtoRightButton.add_click(
                #Click the move right button removes from original list and puts item to the new list
                {
                    $movelist = @()
                    foreach ($item in $WPFlb_OriginalList.SelectedItems) {$movelist += $item}

                    foreach ($item in $movelist) {
                        $WPFlb_OriginalList.items.remove($item) |Out-Null
                        $WPFlb_SelectedItems.items.add($item) |Out-Null
                    }
                }
            )

            $WPFtoLeftButton.add_click(
                {
                    $movelist = @()
                    foreach ($item in $WPFlb_SelectedItems.SelectedItems) {$movelist += $item}
                    foreach ($item in $movelist) {
                        $WPFlb_SelectedItems.items.remove($item) 
                        $WPFlb_OriginalList.items.add($item)
                    }
                }
            )

            $WPFAccept.add_click( {
                    $Script:SelectedItems = @()
                    foreach ($item in $wpflb_SelectedItems.Items) {$Script:SelectedItems += $item}
                    $form.Close()
                })

            #mouseover cursor changes
            $WPFtoLeftButton.Add_MouseEnter( {$form.Cursor = [System.Windows.Input.Cursors]::Hand})
            $WPFtoLeftButton.Add_MouseLeave( {$form.Cursor = [System.Windows.Input.Cursors]::Arrow})

            $WPFtoRightButton.Add_MouseEnter( {$form.Cursor = [System.Windows.Input.Cursors]::Hand})
            $WPFtoRightButton.Add_MouseLeave( {$form.Cursor = [System.Windows.Input.Cursors]::Arrow})

            $WPFAccept.Add_MouseEnter( {$form.Cursor = [System.Windows.Input.Cursors]::Hand})
            $WPFAccept.Add_MouseLeave( {$form.Cursor = [System.Windows.Input.Cursors]::Arrow})

            if ($SelectProperties) {
                $SortItems = (Get-Member -InputObject $InputObject[0] -MemberType Property).name
            }
            Else {
                $SortItems = $InputObject
            }

            #Populate left panel 
            foreach ($item in $SortItems) {
                $WPFlb_OriginalList.items.add($item) |Out-Null
            } 

            $form.WindowStartupLocation = [System.Windows.WindowStartupLocation]::CenterScreen
            $Form.Background = $Color

            # Show the form
            $Form.ShowDialog() | Out-null
            $firstRun = $False
        }
    
        if ($SelectProperties) {
            #If they choose nothing or close, return all
            if ($Script:SelectedItems.Count -eq '') {
                $InputObject
            }
            ELSE {
                $InputObject | Select-Object -Property $Script:SelectedItems
            }
        }
        ELSE {
            #on exit return selected items
            $script:SelectedItems
        }
    }
    End {}
}
#region Dot Source Reminder
$ScriptPath = $PSCommandPath
## Presuming function name is same as script name
$fn = $MyInvocation.MyCommand.Name.Replace(".ps1", "")
$DSContinue = (get-command $fn -ErrorAction SilentlyContinue).Name -eq $fn
if ($DSContinue -eq $true) {
    $ScriptTxt = Get-Content $ScriptPath
    $MoreTxt = [regex]::Split($ScriptTxt, 'Source Reminder ###')[2]
    if ($MoreTxt.Length -ge $fn.Length) {break}
    if ($host.Name -match "ISE|Code" ) {
        "`nYou have loaded the advanced function `"$fn`""
        "`tUse `"Get-Help`" for information and usage, Ex:`n`tPS C:\> Get-Help $fn -detailed`n"
    }
    ELSE {
        if ($MyInvocation.InvocationName -ne '.') {
            "`nThis advanced function must be dot sourced to run.`n"
            "Load example:`nPS C:\> . `"$ScriptPath`"`n
After loading, use `"Get-Help`" for information and usage, Ex:
PS C:\> Get-Help $fn -detailed`n"
            Pause
        }
        ELSE {
            "`nYou have loaded the advanced function `"$fn`""
            "`tUse `"Get-Help`" for information and usage, Ex:`n`tPS C:\> Get-Help $fn -ShowWindow`n"

        }
    }
}
#endregion Dot Source Reminder ###