pana con este codigo creas los encabvezados.. incluso puedes crear una funcion que se llame asi y le colo cas el siguiente codigo y veras que le da el formato
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
With ListView1
.View = lvwReport
.GridLines = True
.LabelEdit = lvwManual
.ColumnHeaders.Add , , "Cod. Act."
.ColumnHeaders.Add , , "Descripción", "7000"
.ColumnHeaders.Add , , "Cod. Grupo"
.ColumnHeaders.Add , , "Descripción del Grupo", "6000"
End With
en el form load pon esto
ListView1.FullRowSelect = True
ListView1.HideSelection = True
ListView1.HotTracking = True
ListView1.StartLabelEdit
ListView1.TextBackground = lvwOpaque
luego para agregar haces esto
Set tli = ListView1.ListItems.Add(, , "rs1!NUEVO")
tli.SubItems(1) = "rs2!DescripciónActividad"
tli.SubItems(2) = "rs3!Codigo_Grupo"
tli.SubItems(3) = "rs3!grupo"
ah y en un modulo declaras la variable tli asi
Public tli As ListItem
eso es lo basico espero que te sirva