リストビューにアイテムを追加後、並べ替えしていますが、
以下のコードではソートはされず、最終行へ追加されます。

しかし、（＊）の場所で一旦ブレイクすると、結果はちゃんと
ソートしてくれます。
こんな場合は、何か対応策はないでしょうか？


Set obItem = Me.ListView1.ListItems.Add()

obItem.Text = Me.Text1.Text
obItem.SubItems(1) = Me.Text2.Text
obItem.SubItems(2) = Me.Text3.Text
obItem.SubItems(3) = Me.Text4.Text
  
Set obItem = Nothing

ListView1.Sorted = True 　　'（＊）<===ここでブレイク
ListView1.SortKey = 3
ListView1.SortOrder = lvwAscending
ListView1.Sorted = False

ちなみに、ブレイクポイントにメッセージボックスを置くと
うまくいきました。

本当は、メッセージは出したくないんですが。。。

> こんな場合は、何か対応策はないでしょうか？

当方では再現しませんでした。

とりあえず、ソート直前に「ListView1.Refresh」あるいは「DoEvents」を
呼びだしてみては如何でしょう。

「ListView1.Refresh」

でうまくいきました。
ありがとうございました。