Duplicata Possível:
Adicionando itens em uma caixa de listagem com várias colunas

Com o MFC VC ++ existem dois controles,ListBox eListCtrl. Mas com o VBA parece que temos apenasListBox.

Eu quero criar uma caixa de listagem com 2 colunas (Company_ID, Company_Name).

Aqui está o que eu tentei:

Eu criei lstbox (tipo de controle ListBox)Tipo de origem da linha = lista de valoresEstou tirando valor do usuário de duas caixas de edição e quando o usuário clica em "adicionar", ele deve ser adicionado à caixa de listagem com duas colunas.

Na rotina de código do VBA, adicionei as seguintes linhas:

lstbox.ColumnCount = 2
lstbox.AddItem (Company_ID)

O código a seguir não está funcionando, o que parece estar relacionado com a adição do valor da coluna:

lstbox.Column(1,lstbox.ListCount - 1) = Company_name

Isso dá erro:

Erro de tempo de execução '424' objeto necessário.

Alguém poderia ajudar com código vba para adicionar à caixa de listagem multi-coluna.