Игра про хрюшек в Visual Studio

[Rozalina]

такое преобразование кода, которое не меняет его наблюдаемого поведения, называется рефакторингом

это пока не сделала, тк конец семестра по всем предметам куча заданий и сроки поджимают...
вроде программа и так работает, но проблема с ситуацией когда выпадает "Oinker"
ПОМОГИТЕ

[Rozalina]

Public Class Form1
     Dim intRollScore As Integer
    Private intTurnScore As Integer
    Private intTotalScore1 As Integer
    Private intTotalScore2 As Integer
    Private intTurn As Integer
Private Sub btnRoll_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRoll.Click
        PictureBox1.Visible = True
        PictureBox2.Visible = True
Dim Roll(1) As Integer
        Dim intRoll1 As Integer
        Dim intRoll2 As Integer
 For intX As Integer = 0 To 1
            Roll(intX) = Int(Rnd() * 1000) + 1
        Next intX
        For intX As Integer = 0 To 1
            Select Case Roll(intX)
                Case 1 To 349
                    If intX = 0 Then
                        PictureBox1.Image = Image.FromFile("Pink.png")
                        intRoll1 = 1
                    Else
 PictureBox2.Image = Image.FromFile("Pink.png")
                        intRoll2 = 1
                    End If
                Case 350 To 649
                    If intX = 0 Then
                        PictureBox1.Image = Image.FromFile("Dot.png")
                        intRoll1 = 2
                    Else
                        PictureBox2.Image = Image.FromFile("Dot.png")
                        intRoll2 = 2
                    End If
                Case 650 To 849
                    If intX = 0 Then
                        PictureBox1.Image = Image.FromFile("Razorback.png")
                        intRoll1 = 3
                    Else
                        PictureBox2.Image = Image.FromFile("Razorback.png")
                        intRoll2 = 3
                    End If
                Case 850 To 949
                    If intX = 0 Then
                        PictureBox1.Image = Image.FromFile("Trotter.png")
                        intRoll1 = 4
                    Else
                        PictureBox2.Image = Image.FromFile("Trotter.png")
                        intRoll2 = 4
                    End If
                Case 950 To 989
                    If intX = 0 Then
                        PictureBox1.Image = Image.FromFile("Snouter.png")
                        intRoll1 = 5
                    Else
                        PictureBox2.Image = Image.FromFile("Snouter.png")
                        intRoll2 = 5
                    End If
                Case 990 To 996
                    If intX = 0 Then
                        PictureBox1.Image = Image.FromFile("Leaning Jowler.png")
                        intRoll1 = 6
                    Else
                        PictureBox2.Image = Image.FromFile("Leaning Jowler.png")
                        intRoll2 = 6
                    End If
                Case 997 To 1000
                    lblOin.Text = "Oinker"
                    PictureBox1.Image = Image.FromFile("oinker1.png")
                    PictureBox2.Image = Image.FromFile("oinker2.png")
                    intRollScore = 0
                    intTurnScore = 0
                    If lblTurn.Text = "Player 1" Then
                        intTotalScore1 = 0
                    Else
                        intTotalScore2 = 0
                    End If
 End Select
        Next intX

[Rozalina]

 If intRoll1 = 1 AndAlso intRoll2 = 1 OrElse intRoll1 = 2 AndAlso intRoll2 = 2 Then
            intRollScore = 1
        ElseIf intRoll1 = 1 AndAlso intRoll2 = 3 OrElse intRoll1 = 1 AndAlso intRoll2 = 4 OrElse
            intRoll1 = 2 AndAlso intRoll2 = 3 OrElse intRoll1 = 2 AndAlso intRoll2 = 4 OrElse
            intRoll1 = 3 AndAlso intRoll2 = 1 OrElse intRoll1 = 4 AndAlso intRoll2 = 1 OrElse
            intRoll1 = 3 AndAlso intRoll2 = 2 OrElse intRoll1 = 4 AndAlso intRoll2 = 2 Then
            intRollScore = 5
        ElseIf intRoll1 = 1 AndAlso intRoll2 = 5 OrElse intRoll1 = 5 AndAlso intRoll2 = 1 OrElse
            intRoll1 = 2 AndAlso intRoll2 = 5 OrElse intRoll1 = 5 AndAlso intRoll2 = 2 OrElse
            intRoll1 = 3 AndAlso intRoll2 = 4 OrElse intRoll1 = 4 AndAlso intRoll2 = 3 Then
            intRollScore = 10
        ElseIf intRoll1 = 1 AndAlso intRoll2 = 6 OrElse intRoll1 = 6 AndAlso intRoll2 = 1 OrElse
            intRoll1 = 2 AndAlso intRoll2 = 6 OrElse intRoll1 = 6 AndAlso intRoll2 = 2 OrElse
            intRoll1 = 3 AndAlso intRoll2 = 5 OrElse intRoll1 = 5 AndAlso intRoll2 = 3 OrElse
            intRoll1 = 4 AndAlso intRoll2 = 5 OrElse intRoll1 = 5 AndAlso intRoll2 = 4 Then
            intRollScore = 15
        ElseIf intRoll1 = 3 AndAlso intRoll2 = 3 OrElse intRoll1 = 4 AndAlso intRoll2 = 4 OrElse
            intRoll1 = 4 AndAlso intRoll2 = 6 OrElse intRoll1 = 6 AndAlso intRoll2 = 4 OrElse
            intRoll1 = 3 AndAlso intRoll2 = 6 OrElse intRoll1 = 6 AndAlso intRoll2 = 3 Then
            intRollScore = 20
        ElseIf intRoll1 = 5 AndAlso intRoll2 = 6 OrElse intRoll1 = 6 AndAlso intRoll2 = 5 Then
            intRollScore = 25
        ElseIf intRoll1 = 5 AndAlso intRoll2 = 5 Then
            intRollScore = 40
        ElseIf intRoll1 = 6 AndAlso intRoll2 = 6 Then
            intRollScore = 60
        Else
            intRollScore = 0
        End If
        If intRollScore = 0 Then
            intTurnScore = 0
            btnRoll.Enabled = False

        Else

            intTurnScore = intTurnScore + intRollScore

        End If
        lblRollScore.Text = intRollScore.ToString("N0")
        lblTurnScore.Text = intTurnScore.ToString("N0")
    End Sub

    Private Sub btnPass_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPass.Click
        lblOin.Text = String.Empty
        intTurn = Not (intTurn)
        btnRoll.Enabled = True

        If intTurn Then
            lblTurn.Text = "Player 2"
            intTotalScore1 += intTurnScore
            lblTotal1.Text = intTotalScore1.ToString("N0")
            txtTurnSc1.Text = txtTurnSc1.Text &
                intTurnScore.ToString("N0") & ControlChars.NewLine

        Else
            lblTurn.Text = "Player 1"
            intTotalScore2 += intTurnScore
            lblTotal2.Text = intTotalScore2.ToString("N0")
            txtTurnSc2.Text = txtTurnSc2.Text &
               intTurnScore.ToString("N0") & ControlChars.NewLine
        End If
        intRollScore = 0
        intTurnScore = 0
        lblRollScore.Text = String.Empty
        lblTurnScore.Text = String.Empty
        If intTotalScore1 >= 100 Then
            MessageBox.Show("Player 1 won the Game!",
                            "Game over",
                            MessageBoxButtons.OK,
                            MessageBoxIcon.Information)
        ElseIf intTotalScore2 >= 100 Then

            MessageBox.Show("Player 2 won the Game!",
                            "Game over",
                            MessageBoxButtons.OK,
                            MessageBoxIcon.Information)
        End If

    End Sub

    Private Sub btnNew_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNew.Click
        intTotalScore1 = 0
        intTotalScore2 = 0
        intTurnScore = 0
        lblTurn.Text = "Player 1"
        lblRollScore.Text = String.Empty
        lblTurnScore.Text = String.Empty
        lblTotal1.Text = String.Empty
        lblTotal2.Text = String.Empty
        txtTurnSc1.Text = String.Empty
        txtTurnSc2.Text = String.Empty
        PictureBox1.Visible = False
        PictureBox2.Visible = False
    End Sub
End Class

[Rozalina]

если что то не так или ненужное пишите это моя первая игра и я хочу научиться писать правильно