Gracias a todos por sus respouestas. Ya está solucionado..
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú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