Combobox gera problemas gráficos no form

Acabo de entender de o que estava provocando o erro.

Toda vez que o filtro perde o foco eu mudo os valores do combo. O código é assim:

Private Sub txtApresentacao_LostFocus()

Dim lbproduto As bProduto
Dim ldproduto As dProduto
Dim colecao As Collection


        Set ldproduto = New dProduto
        Set colecao = New Collection

        Combo1.Clear

        If optBonificado.Value Then
            ldproduto.Carregar_Produtos_Simplificado colecao, 2, Trim(txtDescricao.Text), "", Trim(txtApresentacao.Text)
        End If
        Set ldproduto = Nothing

        For Each lbproduto In colecao
            Combo1.AddItem lbproduto.Descricao & IIf(Trim(lbproduto.Apresentacao) <> "", " (" & lbproduto.Apresentacao & ")", "")
            Combo1.ItemData(Combo1.NewIndex) = lbproduto.id_produto
        Next

        Set lbproduto = Nothing
        Set colecao = Nothing

End Sub

Mas eu estava esquecendo de limpar o combo toda vez que ele fosse modificado. Ou seja, falatava isso:

Public sub txtDescricao_Change()
       combo1.Clear
End Sub

Caramba, uma linha simples que estava enchendo o saco. :P

Obrigado pela ajuda!