Buena esa.. Pero tengo algo que tambien puede servir...
Em las propiedades del LitView >> Listas de Imágenes >> Normal= Ninguno >> Pequeño= ImgList >> Encabezado= Ninguno. En modo reporte.. Creas una función
Private Sub Cargar_Opciones()
Dim itemx As ListItem
lv.ColumnHeaders(1).Width = (lv.Width - 120)
Set itemx = lv.ListItems.Add(, "user", "Opciones Usuarios", , "user")
itemx.Selected = True
itemx.Tag = "Opciones Usuarios: Permite, crear, modificar, eliminar y buscar usuarios del sistema."
Call lv_ItemClick(itemx)
Set itemx = lv.ListItems.Add(, "search", "Buscar Conversación", , "search")
itemx.Tag = "Buscar Conversación: Permite ver el historial de conversación que se han guardado previamnete."
Set itemx = lv.ListItems.Add(, "tiempo", "Estado de Tiempo", , "tiempo")
itemx.Tag = "Estado de Tiempo: Permite ver el estado de tiempo actual..."
Set itemx = lv.ListItems.Add(, "webcam", "Iniciar Camara Web...", , "webcam")
itemx.Tag = "Iniciar Camara Web: Establece la conexión por camara web... "
End Sub
La llamas del Load y listo..