'*******************************************************
'*      Código para centrar texto en un listbox        *
'* Hay que añadir: 1 listbox: List1 y 1 label: Label1. *
'*                                                     *
'*              Realizado por karmany                  *
'*******************************************************


Private Sub Form_Load()
  Label1.AutoSize = True
  List1.AddItem (centrar("centro"))
  List1.AddItem (centrar("karmany"))
  List1.AddItem (centrar("oil"))
  'LTrim para recuperar el item original.
End Sub

Public Function centrar(text As String) As String

  Dim tamtexto As Integer, tamlist As Integer, tamreal As Integer
  Dim tamspc As Integer, espacios As Integer

  Label1.Font.Name = List1.Font.Name 'Nombre de la letra
  Label1.FontSize = List1.FontSize 'Tamaño de la letra
  Label1.FontBold = List1.FontBold 'Negrita
  Label1.FontItalic = List1.FontItalic 'Cursiva

  'Calcula el tamaño de un espacio:
  Label1.Caption = " "
  tamspc = Label1.Width

  'Calcula el tamaño del texto:
  Label1.Caption = text
  tamtexto = Label1.Width

  'Calcula el tamaño del listbox:
  tamlist = List1.Width

  'Calcula el tamaño que hay que poner delante del texto:
  tamreal = Int(tamlist - tamtexto) / 2

  'Calcula el número de espacios que hay delante del texto:
  espacios = Int(tamreal / tamspc) - 1

  centrar = Space(espacios) & text

End Function