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

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 回答日時： 2008/07/06 18:40

標準機能ではできないので、API を使います。

http://www.mitene.or.jp/~sugisita/api_comct.html
の、「リストビューのカスタムドロー」にサンプルがあります。