Alinhamento de colunas em listbox

Boa noite meus amigos e mestres, estou postando um exemplo de minha autoria para alinhamento dos dados em colunas de listbox, um cliente meu não gostou do listbox padrão com alinhamento a esquerda, e como eu não gosto de utilizar componentes externos criei esta pequena solução, cabe melhorias? sim, por isso gostaria da opinião dos senhores,

abraços.


Nova versão a baixo

Bão por demais, Parabéns.

Cumprimentos.

Obrigado, Melhoramentos .... jAlinha

Versão 2:
Alinhamentos com uma função apenas, informando o tipo de alinhamento desejado,
EXEMPLO:
jAlinha(rs.Fields(6).Value, 17, "##,##.00", 1) = Alinha a esquerda
jAlinha(rs.Fields(7).Value, 20, "Currency", 2) = Centraliza
jAlinha(rs.Fields( 8 ).Value, 20, "Currency", 3) = Alinha a direita



Bug. encontrado:

Existe um bug com a fonte da listbox, não dá certo com todas as fontes, o que pra mim não é nenhum problema pois com a fonte que utilizo em meus formulários está tudo ok.

Fonte: Consolas

em anexo.

Onde coloco esse código?
É só isso ou tem mais coisa?

Grato.

Segue o exemplo de uso da função:

Alinhamento em listbox

Não funciona com todas as fontes, recomendo o uso da fonte consolas em sua listbox.