Do Until Tbbaixas.EOF
DBList_2.AddItem Format(Tbbaixas("Codigo"), "000000")
DBList_2.List(i, 1) = Format(TbPva("Unitario"), "#,###,##0.00")

Preciso alinhar o resultado do campo unitário à esquerda da coluna em um listBox. Alguem tem uma função ou outro jeito de fazer isso?

O valor carrega assim centralizado: 3.224,00 
                                                 221,00 
                                                 315,00

preciso que saia assim:  3.224,00 
                                   221,00 
                                   315,00

Saliento que so posso usar o LixtBox

dá uma olhada nessa função que eu passei em outro post:

 

Como que eu uso esta função no meu código?

 

Function Preenche_Caracter(Str_Texto As String, Int_Quantidade As Integer, Str_Caractere As String, Optional Alinhamento As Boolean) As String
  
' Preenche a String (Str_Texto) com uma Quantidade(Int_Quantidade) de
' um Caracter(Str_Caracter) a Direita ou Esquerda (Alinhamento)
  
   Dim Int_Contador As Integer
  
   Preenche_Caracter = Trim$(Str_Texto)
  
   For Int_Contador = 1 To Int_Quantidade - Len(Str_Texto)
      If Alinhamento Then
         Preenche_Caracter = Str_Caractere & Preenche_Caracter
       Else
         Preenche_Caracter = Preenche_Caracter & Str_Caractere
      End If
   Next
End Function

Mas o q vc deseja com essa função? E onde vc qr usá-la?

O Colega do forum me passou. Desejo alinhar número à direita em uma coluna de um ListBox conforme abaixo:

 

DBList_2.List(i, 1) = Format(TbPva("Unitario"), "#,###,##0.00")