Private Sub Lv_ItemClick(ByVal li As MSComctlLib.ListItem)
Dim T$, Col As Byte
T = Left(li, 1)
Col = IIf(T = "D" Or T = "F" Or T = "M", 5, 3)
ActiveCell.Resize(1, 5) = ""
ActiveCell.Resize(1, 5).Interior.ColorIndex = xlNone
If li = "" Then Unload Me: Exit Sub
ActiveCell.Resize(1, 2).Interior.Color = Lv.ListItems(li.Index).ForeColor
ActiveCell = li
ActiveCell.Interior.Color = Lv.ListItems(li.Index).ForeColor
ActiveCell(1, Col) = Lv.ListItems(li.Index).ListSubItems(2)
ActiveCell(1, 3).Select
Unload Me
End Sub