HELP MultiSelect

IF EMPTY(thisform.ListBox.Value)
*!* Ничего не выбрано
ELSE
*!* В thisform.ListBox.Value будет значение выбранного пункта
ENDIF

*!* Свое сообщение об ошибке
#define MYERRORMESSAGE 'Ошибка. Попытка добавить неуникальное значение'
*!* Предварительные действия
CREATE CURSOR test (test i unique)
LOCAL lnValue
lnValue= 1 
*!* Вставка значения без ошибки
INSERT INTO test (test) VALUES (lnValue)
*!* Способ  1 
*!* Сначала ищем это значение и вставляем его только, если не находим.
IF INDEXSEEK(lnValue,.T.,'test','test')
	=MESSAGEBOX(MYERRORMESSAGE, 48 )
ELSE
	INSERT INTO test (test) VALUES (lnValue)
ENDIF
*!* Способ  2 
*!* Через обработку ошибок.
LOCAL onError 
onError=ON( "Error" )
ON ERROR do ErrorHandler
INSERT INTO test (test) VALUES (lnValue)
ON ERROR &onError
*!* Способ  3 
*!* Через структурную обработку исключений. Только VFP8.
LOCAL oErr AS Exception
TRY 
	INSERT INTO test (test) VALUES (lnValue)
CATCH TO oErr
	IF oErr.ErrorNo= 1884 
		=MESSAGEBOX(MYERRORMESSAGE, 48 )
	ELSE 
		=MESSAGEBOX(oErr.Message, 48 )
	ENDIF 	
ENDTRY 
*!* Последующие действия
BROWSE
USE 

PROCEDURE ErrorHandler
=MESSAGEBOX(MYERRORMESSAGE, 48 )

 *!* Command.Error
#define MYERRORMESSAGE 'Ошибка. Попытка добавить неуникальное значение'
LPARAMETERS nError, cMethod, nLine
IF nError= 1884 
	=MESSAGEBOX(MYERRORMESSAGE, 48 )
ELSE 
	=MESSAGEBOX(MESSAGE(), 48 )
ENDIF