要 顯 示 不 同 的 圖 標(biāo) 需 要 兩 點(diǎn) ， 一 是 ImageList控 件 中 有 多 個 圖 標(biāo) ， 二 是 ListItems中 的 每 個 項(xiàng) 目 的 Icon設(shè) 置 不 同 。 如 ： 
     ListView1.View = lvwIcon 
     Dim i 
     For i = 1 To 8 
     ImageList1.ListImages.Add , , LoadPicture( _ 
     "e:\vb\icons\elements\moon0" & i & ".ico") 
     Next 
     ListView1.Icons = ImageList1 
     
     For i = 1 To 8 
     ListView1.ListItems.Add i, , "Moon " & i, i ' <-- 注 意 最 后 一 個 參 數(shù) 
     Next 
<END>