画listview背景的问题

[cnwangbo]

'*********************************************************************
' SetListItemColor方法有三个参数，ListView控件的名称，字符串，PictureBox控件的名称
’VB里，当listview.listItem>1000时，怎么画Listitem的背景，并且显示没问题。
'*********************************************************************
Private Sub SetListItemColor(lv As ListView, strOffset As String, picBg As PictureBox)

On Error GoTo ErrorHandling
Dim i As Integer
Dim j As Integer
Dim mItem As ListItem
Dim strOff() As String
Dim flag As Boolean

picBg.BackColor = lv.BackColor
lv.Parent.ScaleMode = vbTwips
picBg.ScaleMode = vbTwips
picBg.BorderStyle = vbBSNone
picBg.AutoRedraw = True
picBg.Visible = False
picBg.Width = lv.Width
picBg.Height = lv.ListItems(1).Height * (lv.ListItems.Count)
picBg.ScaleHeight = lv.ListItems.Count
picBg.ScaleWidth = 1
picBg.DrawWidth = 1
strOff = split(strOffset, ",")
Dim itemp As Integer
For i = 1 To lv.ListItems.Count
For j = 0 To UBound(strOff)
If lv.ListItems.Item(i).SubItems(5) = strOff(j) Then
picBg.Line (0, i - 1)-(1, i), RGB(255, 100, 50), BF
End If
Next
Next
lv.Picture = picBg.Image
ErrorHandling:

End Sub

问题特征：当lv.ListItems.Count<500时，lv.ListItems的背景色显示正常，当lv.ListItems.Count>500或更大时，lv.ListItems的背景色显示不正常。
求助：那位大哥能帮小弟解决此问题，愿献上5分。或更多。谢谢。附件里是，结果显示的界面。

[cangwu_lee]

要每次刷新的時候重繪

[cnwangbo]

每次刷新的時候是重繪的。

[cnwangbo]

单纯的想用画图的方式，是达不到完美的效果的。
可以用设置字体的颜色来实现。

lv.ListItems.Item(k).ListSubItems(t).ForeColor = vbRed
lv.ListItems.Item(k).ListSubItems(t).Bold = True