特定行の背景色を変えたいのですが

質問

vb6で組んでおりますがformの明細行はListView1です。
If ds.RecordCount > 0 Then
Do Until ds.EOF
Set oListItem = ListView1.ListItems.Add()
oListItem.Text = ds.Fields("商品コード").Value
oListItem.SubItems(1) = ds.Fields("JANコード").Value
oListItem.SubItems(2) = ds.Fields("商品名").Value
oListItem.SubItems(3) = ds.Fields("規格").Value
if oListItem.SubItems(1) =　''　then
oListItem.ForeColor = RGB(250, 250, 250)
oListItem.BackColor = RGB(250, 180, 180)-->(1)コンパイルエラー
endif
　　　 ds.MoveNext
Loop
(1)コンパイルエラー⇒メソットが見つかりません。
がどうしても解消できません・・・初心者です。
ご教示のほどよろしくお願いします。

回答No.1

QSW73j2gda

標準機能ではできないので、API を使います。
http://www.mitene.or.jp/~sugisita/api_comct.html
の、「リストビューのカスタムドロー」にサンプルがあります。