Est primet dlya comboxa
'Define API function for using smart search in combobox
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CB_FINDSTRING = &H14C

Private Sub cboEngSN_Change()
Dim iStart As Integer 'Len string
Dim sString As String 'String search
Static iLeftoff As Integer 'Start position
'Set default len =1
iStart = 1
'Set selection start
iStart = cboEngSN.SelStart
If iLeftoff <> 0 Then
cboEngSN.SelStart = iLeftoff
iStart = iLeftoff
End If
'Take selected data from combobox
sString = CStr(Left(cboEngSN.Text, iStart))
'run API function
cboEngSN.ListIndex = SendMessage(cboEngSN.hwnd, CB_FINDSTRING, -1, ByVal CStr(Left( _
cboEngSN.Text, iStart)))
'refresh data
If cboEngSN.ListIndex = -1 Then
iLeftoff = Len(sString)
cboEngSN.Text = sString
End If

cboEngSN.SelStart = iStart
iLeftoff = 0


End Sub