リストビュー(詳細表示時)に2・3列目の文字色を変えるには？ (ID:119669)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 質問失礼しますm(_ _)m 現在リストビュー(詳細表示)を使用して、ログ表示を作成しており(下記参照)、行ごとに文字色を変えたいと思っているのですが、SubItemsに関しての色が変更できません(T_T) エラーが起こらないので構文が間違っているとは思えないのですが、、、 どなたか、解かるお方がいらっしゃいましたらご教授をお願いします。。。 ｜現在時間｜イベント｜内容・・・｜ ｜Ｘ：ＸＸ｜ ＡＡ ｜ＢＢ・・・｜ ｜Ｙ：ＹＹ｜ ＣＣ ｜ＤＤ・・・｜←例えばこの行だけを青色文字にしたい ｜Ｚ：ＺＺ｜ ＥＥ ｜ＦＦ・・・｜ '2行目セット時の文 Dim itm as ListItem Set itm = lsvLog.ListItems.Add(, , Time) itm.SubItems(1) = "ＣＣ" itm.SubItems(2) = "ＤＤ" itm.ForeColor = &HFF0000 '青色セット itm.ListSubItems.Item(1).ForeColor = itm.ForeColor itm.ListSubItems.Item(2).ForeColor = itm.ForeColor (1)、(2)でサブアイテム(2・3列目)も青色にセットしているのですが、1列目しか青くなりません。（「Ｙ：ＹＹ」はOk、「ＣＣ」、「ＤＤ」の色は黒のままです。どぉしてもわからず苦戦しております。 どなたか、お力をお貸しください<(_ _)> 以上、長文失礼しました。