Dúvida Com Listview

[Fireboard]

Inseri um objeto listview com a rotina abaixo:

Do While tbprod.EOF = False

Set lista = lstv1.ListItems.Add(, , tbprod("codigo"))

lista.SubItems(1) = tbprod("descricao")

lista.SubItems(2) = tbprod("cor")

lista.SubItems(3) = Format(tbprod("codbar"), "000 0000 00000-1")

lista.SubItems(4) = tbprod("grupo")

tbprod.MoveNext

Loop

Nas propriedadas do objeto quando vou alinhar a primeira coluna a direita o VB exibe a mensagem: "The first column in a listview contrl must be left aligned".

Eu queria alinhar a primeira coluna à direita.

Alguém sabe se é possível fazer isso?

Muito obrigado

[Decio]

Se não existir uma forma de alinhamento, você pode criar sua própria função usando espaços em branco para alinhar a string.

[Fireboard]

Boa idéia, vou fazer isso

Obrigado