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

---

code:

---

if readvalue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","SyncMode5") <> 3
	dim $yesno
	$yesno = messagebox('This program uses parts of IE5 to gather it's' + @crlf + 
			  'information.  For increased performance it is' + @crlf + 
			  'recommended that the settings for' + @crlf + 
			  '"Temporary Internet files", be set to "Every' + @crlf + 
			  'Visit to a page".' + @crlf + @crlf +
			  ' Would you like me to make this change now?',"Attention!",48+4)
	if $yesno = 6
		$nul = writevalue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","SyncMode5","3","reg_dword")
		if @error = 0
			$nul = messagebox("Change to IE was successful","Attention!",48)
		else
			$nul = messagebox("Unable to make change to IE","Attention!",48)
		endif
	else
		$nul = messagebox("Change was not made","Attention",48)
	endif
endif

---