Private Sub TXT_BUSNOMBRE_KeyDown(KeyCode As Integer, Shift As Integer)

If CHK_BUS.Value = 0 And KeyCode = 40 And TXT_BUSNOMBRE <> "" Then

    xval = LST_PRODUCTOS.ListIndex + 1

            For xPunt = xval To LST_PRODUCTOS.ListCount - 1
                xValor = Left(EXTRAER(LST_PRODUCTOS.List(xPunt), "NOMBRE"), Len(TXT_BUSNOMBRE.Text))

                If xValor = TXT_BUSNOMBRE.Text Then

                    LST_PRODUCTOS.ListIndex = xPunt
                    TXT_BUSNOMBRE.BackColor = RGB(255, 244, 83)
                    Exit Sub
                ElseIf xValor <> TXT_BUSNOMBRE.Text Then
                    TXT_BUSNOMBRE.BackColor = RGB(255, 122, 122)
                End If
            Next

ElseIf CHK_BUS.Value = 1 And KeyCode = 40 And TXT_BUSNOMBRE <> "" Then

    xval = LST_PRODUCTOS.ListIndex + 1

        If TXT_BUSNOMBRE.Text = Empty Then
            TXT_BUSNOMBRE.BackColor = RGB(255, 255, 255)
        Else
            For xPunt = xval To LST_PRODUCTOS.ListCount - 1

                xValor = EXTRAER(LST_PRODUCTOS.List(xPunt), "NOMBRE")

                If InStr(xValor, TXT_BUSNOMBRE.Text) <> 0 Then
                    LST_PRODUCTOS.ListIndex = xPunt
                    TXT_BUSNOMBRE.BackColor = RGB(255, 244, 83)
                    Exit Sub
                ElseIf xValor <> TXT_BUSNOMBRE.Text Then
                    TXT_BUSNOMBRE.BackColor = RGB(255, 122, 122)
                End If
            Next
        End If
End If

End Sub