スクロールバーについて (ID:76572)

名前

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

本文 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 こんな感じ？？（ＶＢ６で作成）