Break on

$System = CreateObject("Kixtart.System")

$Form = $System.Form()
$Form.Size = 640,480
$Form.Text = "Bigglesworth-Ware"

$ToolBar = $Form.GroupBox()
$ToolBar.Height = 30
$ToolBar.Dock = "Top"
$ToolBar.DockPadding = 2

$ListView1 = $Form.ListView()
$ListView1.Dock = "Left"
$ListView1.Right = $Form.ClientWidth / 2
$ListView1.SmallImageList = $System.BuiltinImageList
$ListView1.HideSelection = 0
$ListView1.OnDoubleClick = "ListView1DoubleClick()"

$Col = $ListView1.Columns.Add("Installed Software",-2)

For $i = 0 to 10
 $Item = $ListView1.Items.Add("Package#$i",$i)
Next

For Each $Item In $ListView1.SelectedItems
 $Item.Selected = 0
Next

$ListView1.Columns(0).Width = -1
$ListView1.Columns(0).Width = -2
$ListView1.Sorted = 1

$Splitter = $Form.Splitter()

$ListView2 = $Form.ListView()
$ListView2.Dock = "Fill"
$ListView2.SmallImageList = $System.BuiltinImageList
$ListView2.HideSelection = 0
$ListView2.OnDoubleClick = "ListView2DoubleClick()"

$= $ListView2.Columns.Add("Available Software",-2)

For $i = $i to 20
 $Item = $ListView2.Items.Add("Package#$i",$i)
Next

For Each $Item In $ListView2.SelectedItems
 $Item.Selected = 0
Next

$ListView2.Columns(0).Width = -1
$ListView2.Columns(0).Width = -2
$ListView2.Sorted = 1

$Form.Center()
$Form.Show()
While $Form.Visible
 $=Execute($Form.DoEvents())
Loop

Exit 1

Function ListView1DoubleClick()

 dim $item

 $item = $ListView2.Items.Add($ListView1.FocusedItem.Text,$ListView1.FocusedItem.ImageIndex)
 $ListView1.FocusedItem.Remove()

EndFunction

Function ListView2DoubleClick()

 dim $item

 $item = $ListView1.Items.Add($ListView2.FocusedItem.Text,$ListView2.FocusedItem.ImageIndex)
 $ListView2.FocusedItem.Remove()

EndFunction