↑不注意で書き込みボタン押してしまいました。すいません。

質問です。

ListBoxでStyleをチェックボックスにして

For i = 0 To List1.ListCount - 1
List1.Selected(i) = True
Next i

のように全部チェックをつけるとき、数百行あるだけでもえらく時間がかかるんですが、
速度を上げる良い方法はありませんか？
（できればチェックつけながら勝手にスクロールするのもやめさせたいです。）