Снять выделение со строки в ListBox

#include <GUIConstantsEx.au3>
#include <ListBoxConstants.au3>
Global $CurChar = -1, $ListClicks = 0
Opt ( "GUIOnEventMode", 1 ) 
$CharList = GUICtrlCreateList ( "", 210,50,150,300, $GUI_SS_DEFAULT_LIST + $LBS_DISABLENOSCROLL + BitNOT($LBS_SORT) + $LBS_NOTIFY )
GUICtrlSetOnEvent ( $CharList, "ClickOnCharList" )

Func ClickOnCharList ()
	Local $pos = GUICtrlSendMsg ( $CharList, $LB_GETCURSEL, 0, 0 )
	If $pos >= 0 And $CurChar = $pos And $ListClicks = 0 Then
		GUICtrlSendMsg ( $CharList, $LB_SETCURSEL, -1, 0 )
		$ListClicks = 1
	Else
		$ListClicks = 0
	EndIf
	$CurChar = $pos
EndFunc

#include <GUIConstantsEx.au3>
#include <ListBoxConstants.au3>

Global $i_DefInd=1
Opt ( "GUIOnEventMode", 1 ) 

GUICreate("")
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

$CharList = GUICtrlCreateList ( "", 0,0,400,400, $GUI_SS_DEFAULT_LIST + $LBS_DISABLENOSCROLL + BitNOT($LBS_SORT) + $LBS_NOTIFY )
GUICtrlSetOnEvent ( $CharList, "ClickOnCharList" )

GUICtrlSetData(-1, 'Пункт 1|Пункт 2|Пункт 3|Текст', 'Пункт 2')

GUISetState()

While 1
	Sleep(100)
WEnd
	
Func ClickOnCharList()
	$iIndex=GUICtrlSendMsg($CharList, $LB_GETCURSEL, 0, 0)
	If $i_DefInd=$iIndex Then
		GUICtrlSendMsg ( $CharList, $LB_SETCURSEL, -1, 0 )
		$i_DefInd=-1
	Else
		$i_DefInd=$iIndex
	EndIf
EndFunc
	
Func _Exit()
	Exit
EndFunc