Microsoft Visual Basic 6.0でテキスト1に表示させたい。

Dim i As Integer
Private Sub Command1_Click()
For i = 100 To 1 Step -1
If i Mod 3 = 2 Then
Debug.Print i
End If
Next i
End Sub
のプログラムがあるのですがプログラミング結果が
イミディエイトの方に表示されるのですが
このプログラムの結果をtext1に表示させたいのですが
どのようなプログラムにすれば良いでしょうか？
詳しい方教えてください。

No.1 ベストアンサー 回答者： Bickyon 回答日時： 2007/06/07 06:15

現在、Debug.Print i と書いている行のところに

Text1.Text = i と書けば良いのですが、それだと一瞬で最後の答え（２）が表示されるだけです。
Text1のMultiLineプロパティをTrue、ScrollBarsプロパティを2にして、Text1.Text = Text1.Text & i & vbCrLf と書けばイミディエイトウインドウと同じイメージで表示されます。
Forループの前にText1.Text = ""と書くか、プロパティウインドウで、Textプロパティの中身（初期値＝Text）を消しといて下さい。