C# と VB.NET の質問掲示板

VB2008
PictureBoxを左右に往復するループを作成しましたが、★のように速度をランダムに発生させると
右端で反転しなくなりました。どこかにまちがいがあるのでしょうか？


Public Class Form1
    Dim number As Integer = 5　→（★　Dim number As Integer ）
    Dim rn As Random = New Random()

    
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        PictureBox1.Top = rn.Next(400)
     →   ★ number = rn.Next(10)


        PictureBox1.Left += number
        If PictureBox1.Left < 0 Or PictureBox1.Left > Me.Width - PictureBox1.Width Then
            number *= -1


        End If

    End Sub

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


        Timer1.Enabled = Not Timer1.Enabled



    End Sub


End Class