Break On

$Form = CreateObject("Kixtart.Form")
$Form.FontName = "Tahoma"
$Form.FontSize = 10

$SmallIcon = $Form.ToolButton
$SmallIcon.Location = 10,10
$SmallIcon.Width = 23
$SmallIcon.Icon = 40
$SmallIcon.onclick = "$$ListView.View = 1"
$SmallIcon.FlatStyle = 1

$LargeIcon = $Form.ToolButton
$LargeIcon.Location = $SmallIcon.Right + 5,10
$LargeIcon.Width = 23
$LargeIcon.Icon = 38
$LargeIcon.onclick = "$$ListView.View = 0"
$LargeIcon.FlatStyle = 1

$ListIcon = $Form.ToolButton
$ListIcon.Location = $LargeIcon.Right + 5,10
$ListIcon.Width = 23
$ListIcon.Icon = 39
$ListIcon.onclick = "$$ListView.View = 2"
$ListIcon.FlatStyle = 1

$DetailsIcon = $Form.ToolButton
$DetailsIcon.Location = $ListIcon.Right + 5,10
$DetailsIcon.Width = 23
$DetailsIcon.Icon = 41
$DetailsIcon.onclick = "$$ListView.View = 3"
$DetailsIcon.FlatStyle = 1

$ListView = $Form.ListView
$ListView.Location = 10,$SmallIcon.Bottom + 10
$ListView.Right = $Form.ClientWidth - 10
$ListView.Bottom = $Form.ClientHeight - 50
$ListView.Columns.Count = 1
$ListView.SmallImageList = $Form.SmallImageList
$ListView.onclick = "ListView_Click"
$ListView.View = 0

$LargeImageList = $Form.ImageList
$LargeImageList.ImageSize = 32,32
For $i = 0 To $Form.SmallImageList.Images.Count
 $LargeImageList.Images.Add($Form.SmallImageList.Images($i))
Next

$ListView.largeImageList = $LargeImageList

Function ListView_Click

 $IconIndex = Val($ListView.FocusedItem.Text)
 $Exit.Icon = $ListView.SmallImageList.Images($IconIndex)

EndFunction

For $i = 0 To $ListView.SmallImageList.Images.Count
 $Item = $ListView.Items.Add($i,$i)
Next

$Exit = $Form.ToolButton
$Exit.Center
$Exit.Top = $ListView.Bottom + 10
$Exit.Text = "Exit"
$Exit.Icon = 37
$Exit.onclick = "Quit()"

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

Exit 1