problema con listviews

[juanpablo3]

Hola a todos:

Tengo un listview con 7 columnas. Quiero que las cabeceras del lvw estén en negrita y que la información esté en texto normal.

Creo que no se puede poner en código que las cabeceras estén en negrita así que lo que he hecho ha sido definir el listview con texto en negrita y lo que quiero hacer es poner luego los ListItems sin negrita pero no lo consigo...

El código es este:

Set ListItem = LVMuelas.ListItems.Add(cont, , "referencia")

ListItem.Bold = False

ListItem.SubItems(1) = "tipo"
ListItem.SubItems(2) = "vc"
ListItem.SubItems(3) = "diametro"
ListItem.SubItems(4) = "anchura"
ListItem.SubItems(5) = "diametroMinimo"
ListItem.SubItems(6) = "vcMax"

El resultado es que sale todo en negrita...

¿Alguien puede ayudarme?

Muchas gracias

[HMSJUAN]

Saludos:

Creo Que esto te ayudara
Al finalizar de llenar el listview
pon esto

N = lvmuelas.ListItems.Count
For i = 1 To N
With lvMUELAS.ListItems.Item(i)
For j = 1 To 6 ' Esto si son la cantidad de subitem
.ListSubItems.Item(j).Bold = True
Next
End With
Next

[HMSJUAN]

Saludos:

Creo Que esto te ayudara
Al finalizar de llenar el listview
pon esto

N = lvmuelas.ListItems.Count
For i = 1 To N
With lvMUELAS.ListItems.Item(i)
For j = 1 To 6 ' Esto si son la cantidad de subitem
.ListSubItems.Item(j).Bold =/ false o true/
Next
End With
Next