Remove

Thisform.cboContactSearch.RowSourceType = 0

>1) The code for Dblclick in activexcontrol - which call the modul
>

>IF tnKundnr>0
>	Thisform.mmks_searchcontact(tnKundnr, tcModul, tcTelefon)
>ENDIF
>

>2) Code for combobox
>
>

>Set ENGINEBEHAVIOR 70
>Thisform.cboContactSearch.RowSource = ""
>Thisform.cboContactSearch.RowSourceType = 0
>
>Select * ;
>	FROM __tapicustomerfound ;
>	INTO Cursor tapicustomerfound;
>	NOFILTER
>
>Thisform.cboContactSearch.RowSource = "tapicustomerfound.kurzbez,telefon,modul"
>Thisform.cboContactSearch.RowSourceType = 6
>Thisform.cboContactSearch.ColumnCount = 3
>Thisform.cboContactSearch.ColumnWidths = "200,100,30"
>Thisform.cboContactSearch.ColumnLines = .F.
>Thisform.cboContactSearch.Requery()
>
>If Thisform.cboContactSearch.ListCount>0
>	Thisform.cboContactSearch.ListIndex = 1
>Endif
>

>
>But I must repeat.. I can make dblcick 20 times - and no error.. but on 21-th..time.. FoxPro messagebox appears.. and more.. eventhandler not catch this error...