リストボックスの選択解除でリストの位置を戻さないようにするには？

解決

じゅん  2005-05-01 01:43:59  No: 89667  IP: [192.*.*.*]

WinXP、VB6.0 SP6を使ってます。
チェックボックス付のリストボックス（1画面に入らないのでスクロールバーあり）
があって、あるボタンを押したときに選択を解除したいのですが（チェックはそのままで青い帯だけ解除）

List1.ListIndex = -1

とやると、リストをスクロールしている場合、表示される部分が一番上に戻ってしまいます。
チェックボックスなしの場合は、位置はそのままで解除されるようです。
チェックボックス付のリストボックスで、表示位置を戻さずに選択を解除するにはどうしたらいいのでしょうか？
よろしくお願いいたします。

編集 削除
LESIA  2005-05-01 07:57:25  No: 89668  IP: [192.*.*.*]

試してないけど、これではどうでしょうか。

Dim NowTopIndex As Integer

NowTopIndex = List1.TopIndex
List1.ListIndex = -1
List1.TopIndex = NowTopIndex

編集 削除
じゅん  2005-05-01 09:06:18  No: 89669  IP: [192.*.*.*]

できました!!
TopIndexなんていうのがあったんですね。
LESIAさん、ありがとうございました。

編集 削除