Break on

$System = CreateObject("Kixtart.System")

$Form = $System.Form()
$Form.Size = 640,480

$MainMenu = $System.MainMenu()

$FileMenu = $MainMenu.MenuItems.Add("File")

$ExitMenu = $FileMenu.MenuItems.Add("Exit")
$ExitMenu.OnClick = "ExitClick()"

$Form.Menu = $MainMenu

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

$Column = $ListView.Columns.Add("Item")

For $i = 0 to 5
 $Item = $ListView.Items.Add("Item#$i",$i)
Next

$ListView.Columns(0).Width = -1
$ListView.Columns(0).Width = -2

$ContextMenu = $System.ContextMenu

$InsertItemMenu = $ContextMenu.MenuItems.Add("Insert")
$InsertItemMenu.OnClick = "InsertItemClick()"

$DeleteItemMenu = $ContextMenu.MenuItems.Add("Delete")
$DeleteItemMenu.OnClick = "DeleteItemClick()"

$ListView.ContextMenu = $ContextMenu

$Form.Center()
$Form.Show()

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

Exit 1

Function ExitClick()
 $Form.Hide
EndFunction

Function InsertItemClick()

 If $ListView.SelectedItems.Count = 0
  Return
 Endif

 $Item = $ListView.Items.Insert($ListView.SelectedIndex)
 $Item.Text = "Item"

EndFunction


Function DeleteItemClick()

 If $ListView.SelectedItems.Count = 0
  Return
 Endif

 $ListView.Items.Remove($ListView.SelectedIndex)

EndFunction