Preciso do script pra mudar a cor, tamanho e fonte do texto dentro da ListBox

#1

Qual o script pra mudar a cor, tamanho e fonte do texto dentro da ListBox?

#2 
Sub ListBox1_OnStartRunning()
    Dim objListBox
    
    ' Define aqui o ListBox.
    Set objListBox = Me
    
    With objListBox
        .Font.Bold = False 
        .Font.Charset = 0       ' ANSI_CHARSET
        .Font.Italic = False
        .Font.Name = "Consolas"
        .Font.Size = 10
        .Font.Strikethrough = False
        .Font.Underline = False
        .Font.Weight = 1000     ' De 0 a 1000 influencia quando "Bold" em True.

        ' Cor da fonte.
        .ForeColor = vbRed   
    End With	
End Sub
1 Like
#3

Obrigado!

consegui colocar aqui