Boa tarde!!!
Veja se t ajuda..
Private Sub UserForm_Initialize()
Dim column_header As ColumnHeader
Dim list_item As ListItem
' Cria o Cabeçalho da Coluna.
Set column_header = ListView1.ColumnHeaders.Add(, , "Teste")
Set column_header = ListView1.ColumnHeaders.Add(, , "Teste")
Set column_header = ListView1.ColumnHeaders.Add(, , "Teste")
Me.ListView1.View = lvwReport
ListView1.Icons = ImageList1
ListView1.SmallIcons = ImageList2
Set list_item = ListView1.ListItems.Add(, , "Algum texto")
With list_item
.Icon = 1
.SmallIcon = 1
.SubItems(1) = "Outros textos"
.SubItems(2) = Mais texto"
End With
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 04/03/2012 2:36 pm