Sub lvwClients_StatusBkgColor(LVW As LISTVIEW, picBG As PictureBox)

Dim i                    As Long
Dim Item                 As ListItem
Dim sITEM                As ListSubItem
Dim cWidth               As Long: cWidth = picBG.Width

On Error Resume Next
picBG.Cls

   If LVW.ListItems.Count >  0  Then
   
       picBG.Width = Screen.Width
       picBG.height = LVW.ListItems( 1 ).height * (LVW.ListItems.Count)
       picBG.ScaleHeight = LVW.ListItems.Count
       picBG.ScaleWidth =  1 
       picBG.DrawWidth =  1 
       picBG.Cls
   
       For Each Item In LVW.ListItems
          picBG.Line ( 0 , Item.Index -  1 )-( 1 , Item.Index), GP(Item.TAG, "Status_Color"), BF
          Item.ForeColor = GP(Item.TAG, "Status_Color")
       Next
   
       LVW.Picture = picBG.Image
   Else
      picBG.Cls
      picBG.Line ( 0 ,  0 )-( 1 ,  100 ), vbWindowBackground, BF                                          'ÎÁÛ×ÍÛÉ
      LVW.Picture = picBG.Image
   End If
   LVW.Refresh
End Sub