ListViewをコードで選択状態にした場合、選択行に色をつけるには？

解決

---

VB初心者であります。

コードにてListViewを全選択にしたいのですが、
Selectedの値はTrueになるのですが、通常リストをクリックして
選択したように、選択行の色が変更されません。
きちんと選択されていることがわかるように、選択行の色を
選択済みにしたいのですがどうしてもわかりません。

[現在のコード]
  Dim i As Integer
  
  With targetListView
    For i = 1 To .ListItems.Count
      .ListItems(i).Selected = True
    Next
    .Refresh
  End With

どなかたアドバイスを頂けないでしょうか？
宜しくお願いします。

編集 削除

---

フォーカスが当たってないだけでは？

Private Sub Command1_Click()
    Dim i As Integer
    With targetListView
        .SelectedItem.Selected = False
        For i = 1 To .ListItems.Count
            .ListItems(i).Selected = True
        Next
        .SetFocus
    End With
End Sub

編集 削除

---

本当でした！
Loadイベント内にて設定していたので、SetForcusが
できない状態でした。
Activateイベント内にてSetFoucuするとちゃんと
選択表示されました。
お恥ずかしいです。本当に助かりました。
ありがとうございました！

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。