'no modulo cole:
Public Function RSeta(strCampo As String, intTamanho As Integer, Optional intEspacos As Integer) As String
'Funcao que alinha a string a direita
RSeta = Right(Space(CInt(intTamanho) - _
Len(Right(CStr(RTrim(strCampo)), CInt(intTamanho)))) & _
RTrim(strCampo), CInt(intTamanho)) & Space(CInt(intEspacos))
End Function
Public Function LSeta(strCampo As String, intTamanho As Integer, Optional intEspacos As Integer) As String
'Funcao que alinha a string a esquerda
LSeta = Left(LTrim(strCampo) & _
Space(CInt(intTamanho) - Len(Left(CStr(LTrim(strCampo)), _
CInt(intTamanho)))), CInt(intTamanho)) & Space(CInt(intEspacos))
End Function
'Chamar função:
List1.AddItem RSeta("Blablabla", 40) ' onde o 40 é o deslocamento
té mais...