スクロールバーについて

解決

---

リッチテキストボックスにて、データをループさせてどんどん随時、データを
表示していきたいのですが、スクロールバーの必要になった
時点で、スクロールバーは表示されるのですが、
テキストに表示されるデータを追わず、ループ中は常に１行目表示のままです。
ループの終わった後に、スクロールバーを一番したまで移動させると
きちんとデータは全部表示されているのですが、
データの表示中にスクロールバーが徐々に下がっていき、
表示している文字を随時目で見ることはAPIなしでできるのでしょうか？

編集 削除

---

Option Explicit

Private Sub Command1_Click()
Dim i   As Long
RichTextBox1.Text = 0
For i = 1 To 1000
    RichTextBox1.Text = RichTextBox1.Text & vbCrLf & i
    RichTextBox1.SelStart = Len(RichTextBox1.Text)
Next i

End Sub

こんな感じ？？（ＶＢ６で作成）

編集 削除

---

ありがとうございます！！！
見事にきちんとスクロールバーが動きました！すごいです！！
とても勉強になりました。ありがとうございました！！！

編集 削除

---

名前

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

本文

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