code:

---

Break On
  
$Form = CreateObject("Kixtart.Form")

$Form.Caption = "Kixforms..."
$Form.Width =230
$Form.Height = 270

$Form.PrintXY(10,5,"Double Click on Item:")
$ListBox = $Form.ListBox(,10,20,200,200)
$ListBox.FontName = "Courier New"

$ListBox.AddItem("Shawn ..... Green")
$ListBox.AddItem("Lonkero ... Orange")
$ListBox.AddItem("Kyder ..... Blue")

$ListBox.OnDblClick = "ListBox_DblClick"

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

Function ListBox_DblClick

 Select
  Case $ListBox.ListIndex = 0
   $ListBox.BackColor = &099CC99
  Case $ListBox.ListIndex = 1
   $ListBox.BackColor = &00099FF
  Case $ListBox.ListIndex = 2
   $ListBox.BackColor = &0CC9933
  Case 1
 EndSelect
EndFunction

---