игра "Pass the Pigs" в Visual Basic

Private Sub btnRoll_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRoll.Click
        Dim Roll(1) As Integer
        Dim intRoll1 As Integer
        Dim intRoll2 As Integer
        Dim intTotalscore As Integer
        Dim intRollScore As Integer
        Dim intTurnScore As Integer
 
        intTurnScore = 0
        intTotalscore = 0
 
 
        For intX As Integer = 0 To 1
            Roll(intX) = Int(Rnd() * 100) + 1
        Next intX
        For intX As Integer = 0 To 1
            If Roll(intX) >= 0 AndAlso Roll(intX) <= 34 Then
                If intX = 0 Then
                    PictureBox1.Image = Image.FromFile("Pink.png")
                    intRoll1 = 1
                Else
 
                    PictureBox2.Image = Image.FromFile("Pink.png")
                    intRoll2 = 1
                End If
            ElseIf Roll(intX) >= 35 AndAlso Roll(intX) <= 64 Then
                If intX = 0 Then
                    PictureBox1.Image = Image.FromFile("Dot.png")
                    intRoll1 = 2
                Else
                    PictureBox2.Image = Image.FromFile("Dot.png")
                    intRoll2 = 2
                End If
            ElseIf Roll(intX) >= 65 AndAlso Roll(intX) <= 84 Then
                If intX = 0 Then
                    PictureBox1.Image = Image.FromFile("Razorback.png")
                    intRoll1 = 3
                Else
                    PictureBox2.Image = Image.FromFile("Razorback.png")
                    intRoll2 = 3
                End If
 
            ElseIf Roll(intX) >= 85 AndAlso Roll(intX) <= 94 Then
                If intX = 0 Then
                    PictureBox1.Image = Image.FromFile("Trotter.png")
                    intRoll1 = 4
                Else
                    PictureBox2.Image = Image.FromFile("Trotter.png")
                    intRoll2 = 4
                End If
 
            ElseIf Roll(intX) >= 95 AndAlso Roll(intX) <= 98 Then
                If intX = 0 Then
                    PictureBox1.Image = Image.FromFile("Snouter.png")
                    intRoll1 = 5
                Else
                    PictureBox2.Image = Image.FromFile("Snouter.png")
                    intRoll2 = 5
                End If
 
            Else
                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
 
            End If
        Next intX
 
 
        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 = +intRollScore
 
        End If
        lblRollScore.Text = intRollScore.ToString("N0")
        lblTurnScore.Text = intTurnScore.ToString("N0")
    End Sub
 
    Private Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class

My.Computer.Audio.Play("379036_SOUNDDOGS__an.wav")

Label1.BackColor = Color.Transparent
        Label1.Parent = PictureBox1