.NET 4.x Rnd генерирует одно и тоже число - Visual Basic .NET

Dim fnrnd As Integer = 0
        fnrnd = 0
        fnrnd = Int(Rnd() * 9)
        MsgBox(fnrnd)
        If fnrnd = 1 Or fnrnd = 0 Then
            Me.BackgroundImage = My.Resources.BG_Blue
        ElseIf fnrnd = 2 Then
            Me.BackgroundImage = My.Resources.BG_Bir
        ElseIf fnrnd = 3 Then
            Me.BackgroundImage = My.Resources.BG_Green
        ElseIf fnrnd = 4 Then
            Me.BackgroundImage = My.Resources.BG_Orange
        ElseIf fnrnd = 5 Then
            Me.BackgroundImage = My.Resources.BG_Pink
        ElseIf fnrnd = 6 Then
            Me.BackgroundImage = My.Resources.BG_Red
        ElseIf fnrnd = 7 Then
            Me.BackgroundImage = My.Resources.BG_Vio
        ElseIf fnrnd = 8 Then
            Me.BackgroundImage = My.Resources.BG_Yellow
        End If