Private Sub Combo_client_Change()

    Dim i As Long, j As Long

    Dim strPartial As String, strTotal As String

    If m_bEditFromCode Then

        m_bEditFromCode = False

        Exit Sub

    End If

    With Combo_client

        strPartial = .Text

        i = SendMessage(.hwnd, CB_FINDSTRING, -1, ByVal strPartial)

        If i <> CB_ERR Then

            strTotal = .List(i)

            j = Len(strTotal) - Len(strPartial)

            If j <> 0 Then

                m_bEditFromCode = True

                .SelText = Right$(strTotal, j)

                .SelStart = Len(strPartial)

                .SelLength = j

            Else

            End If

        End If

    End With

Combo_client_Click

End Sub