Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        '−−−変数を整数型に宣言−−−
        Dim saikoro As Integer
        Dim i As Integer
        Dim t As Integer

        '−−−さいころ表示を10回繰り返し（転がる感じ）−−−
        For i = 1 To 10

            '−−−乱数でさいころの目を決める−−−
            '　表示を遅くするため、計算を1000000回繰り返す
            For t = 1 To 1000000
                saikoro = Int(Rnd() * 6) + 1
            Next t

            '−−−さいころの数字をラベルに表示−−−
            Label1.Text = saikoro
            Label1.Refresh()

            '−−−さいころの目の画像をピクチャーボックスに表示−−−
            Select Case saikoro
                Case 1
                    PictureSaikoro.Image = PictureBox1.Image
                Case 2
                    PictureSaikoro.Image = PictureBox2.Image
                Case 3
                    PictureSaikoro.Image = PictureBox3.Image
                Case 4
                    PictureSaikoro.Image = PictureBox4.Image
                Case 5
                    PictureSaikoro.Image = PictureBox5.Image
                Case 6
                    PictureSaikoro.Image = PictureBox6.Image
            End Select
            PictureSaikoro.Refresh()

        Next i

    End Sub
End Class