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.OnDoubleClick = "ListView1DoubleClick()"

$= $ListView1.Columns.Add("A")
$= $ListView1.Columns.Add("B")
$= $ListView1.Columns.Add("C")

For $i = 0 to 30 Step 3
 $Item = $ListView1.Items.Add($i)
 $Item.SubItems(1).Text = $i+1
 $Item.SubItems(2).Text = $i+2
Next

$Splitter = $Form.Splitter()

$ListView2 = $Form.ListView()
$ListView2.Dock = "Fill"
$ListView2.OnDoubleClick = "ListView2DoubleClick()"

$= $ListView2.Columns.Add("A")
$= $ListView2.Columns.Add("B")
$= $ListView2.Columns.Add("C")

$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)

 $item.SubItems(1).Text = $ListView1.FocusedItem.SubItems(1).Text
 $item.SubItems(2).Text = $ListView1.FocusedItem.SubItems(2).Text

 $ListView1.FocusedItem.Remove()

EndFunction

Function ListView2DoubleClick()

 dim $item

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

 $item.SubItems(1).Text = $ListView2.FocusedItem.SubItems(1).Text
 $item.SubItems(2).Text = $ListView2.FocusedItem.SubItems(2).Text

 $ListView2.FocusedItem.Remove()

EndFunction