サイコロの出目を全部表示したいです

質問

Visual Basic2008Expressを使っています

フォームにボタンとテキストボックスを貼り付けて
ボタンをダブルクリックして次のようにプログラムを書きました

Dim saikoro As New Random
Dim deme As Decimal

Select Case deme
Case 1
Textbox1.text = ("出目１")

Case 1
Textbox1.text = ("出目２")

Case 1
Textbox1.text = ("出目３")

Case 1
Textbox1.text = ("出目４")

Case 1
Textbox1.text = ("出目５")

Case 1
Textbox1.text = ("出目６")

End Select

これを正常に作動しました。そこで例えば１０回サイコロを降った出目の結果はすべて表示するプログラムを作りたいんですがどうすればいいのでしょうか？Textbox1のところをRichTextBox１を変えてプログラム書きましたが結果は同じでした。
教えてください。

回答No.1

K-Sogacchi

えっと…まず、それで「正常に動作」してますか？
ボタン押すごとにちゃんとテキスト変わります？ と言うよりテキスト出ますか？
（ソースの一部を省略してるのかもですが…）
以下は、起動時点で、0以上1未満の乱数を発生させてテキストボックスに表示させるソースです。
Form1にTextBox1を貼り付け、TextBox1のMultiLineプロパティをTrueにしてください。
その後、TextBox1の縦を広げてください。

Public Class Form1

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim tmp As New Random

TextBox1.Clear()
For i As Integer = 1 To 10
TextBox1.Text &= tmp.NextDouble().ToString & vbCrLf
Next

End Sub

End Class

これを元に、いろいろ調べたりして作り直してみてください。
乱数の使い方然り、Select Caseの使い方然り。
あと、変数 deme は、1～6しか入らないので、普通Decimalは使いません。
IntegerかShortで十分。Byteでもいいぐらい。

補足

できれば自分が書いたプログラムに追加する形でお願いしたいです

例えば最初　出目１　が出たとします
次が　出目６　だとします

テキストボックスに２回目の　出目６　が出た場合
最初の出目１　が消えてしまいます

テキストボックスのMultiLineプロパティをTureにしても
結果は同じでした