Почему ценность моих карт не меняется, когда я нажимаю кнопку, чтобы показать свои карты?

Question

If imgPlayerCards.Image Is AceClubs Or imgPlayerCards.Image Is AceSpades Or imgPlayerCards.Image Is AceHearts Or imgPlayerCards.Image Is AceDiamonds Then
    intPlayerCardValue = 14
    lblPlayerCardValue.Text = "PlayerCardValue: " & intPlayerCardValue
ElseIf imgPlayerCards.Image Is KingClubs Or imgPlayerCards.Image Is KingSpades Or imgPlayerCards.Image Is KingHearts Or imgPlayerCards.Image Is KingDiamonds Then
    intPlayerCardValue = 13
    lblPlayerCardValue.Text = "PlayerCardValue: " & intPlayerCardValue
ElseIf imgPlayerCards.Image Is QueenClubs Or imgPlayerCards.Image Is QueenSpades Or imgPlayerCards.Image Is QueenHearts Or imgPlayerCards.Image Is QueenDiamonds Then
    intPlayerCardValue = 12
    lblPlayerCardValue.Text = "PlayerCardValue: " & intPlayerCardValue
ElseIf imgPlayerCards.Image Is JackClubs Or imgPlayerCards.Image Is JackSpades Or imgPlayerCards.Image Is JackHearts Or imgPlayerCards.Image Is JackDiamonds Then
    intPlayerCardValue = 11
    lblPlayerCardValue.Text = "PlayerCardValue: " & intPlayerCardValue
ElseIf imgPlayerCards.Image Is TenClubs Or imgPlayerCards.Image Is TenSpades Or imgPlayerCards.Image Is TenHearts Or imgPlayerCards.Image Is TenDiamonds Then
    intPlayerCardValue = 10
    lblPlayerCardValue.Text = "PlayerCardValue: " & intPlayerCardValue
ElseIf imgPlayerCards.Image Is NineClubs Or imgPlayerCards.Image Is nineSpades Or imgPlayerCards.Image Is NineHearts Or imgPlayerCards.Image Is NineDiamonds Then
    intPlayerCardValue = 9
    lblPlayerCardValue.Text = "PlayerCardValue: " & intPlayerCardValue
ElseIf imgPlayerCards.Image Is eightClubs Or imgPlayerCards.Image Is eightSpades Or imgPlayerCards.Image Is eightHearts Or imgPlayerCards.Image Is eightDiamonds Then
    intPlayerCardValue = 8
    lblPlayerCardValue.Text = "PlayerCardValue: " & intPlayerCardValue
ElseIf imgPlayerCards.Image Is sevenClubs Or imgPlayerCards.Image Is sevenSpades Or imgPlayerCards.Image Is sevenHearts Or imgPlayerCards.Image Is sevenDiamonds Then
    intPlayerCardValue = 7
    lblPlayerCardValue.Text = "PlayerCardValue: " & intPlayerCardValue
ElseIf imgPlayerCards.Image Is sixClubs Or imgPlayerCards.Image Is sixSpades Or imgPlayerCards.Image Is sixHearts Or imgPlayerCards.Image Is sixDiamonds Then
    intPlayerCardValue = 6
    lblPlayerCardValue.Text = "PlayerCardValue: " & intPlayerCardValue
ElseIf imgPlayerCards.Image Is fiveClubs Or imgPlayerCards.Image Is fiveSpades Or imgPlayerCards.Image Is fiveHearts Or imgPlayerCards.Image Is fiveDiamonds Then
    intPlayerCardValue = 5
    lblPlayerCardValue.Text = "PlayerCardValue: " & intPlayerCardValue
ElseIf imgPlayerCards.Image Is fourClubs Or imgPlayerCards.Image Is fourSpades Or imgPlayerCards.Image Is fourHearts Or imgPlayerCards.Image Is fourDiamonds Then
    intPlayerCardValue = 4
    lblPlayerCardValue.Text = "PlayerCardValue: " & intPlayerCardValue
ElseIf imgPlayerCards.Image Is threeClubs Or imgPlayerCards.Image Is threeSpades Or imgPlayerCards.Image Is threeHearts Or imgPlayerCards.Image Is threeDiamonds Then
    intPlayerCardValue = 3
    lblPlayerCardValue.Text = "PlayerCardValue: " & intPlayerCardValue
ElseIf imgPlayerCards.Image Is twoClubs Or imgPlayerCards.Image Is twoSpades Or imgPlayerCards.Image Is twoHearts Or imgPlayerCards.Image Is twoDiamonds Then
    intPlayerCardValue = 2
    lblPlayerCardValue.Text = "PlayerCardValue: " & intPlayerCardValue
End If
If imgEnemyCards.Image Is AceClubs Or imgEnemyCards.Image Is AceSpades Or imgEnemyCards.Image Is AceHearts Or imgEnemyCards.Image Is AceDiamonds Then
    intEnemyCardValue = 14
    lblEnemyCardValue.Text = "EnemyCardValue: " & intEnemyCardValue
ElseIf imgEnemyCards.image Is KingClubs Or imgEnemyCards.image Is KingSpades Or imgEnemyCards.image Is KingHearts Or imgEnemyCards.image Is KingDiamonds Then
    intEnemyCardValue = 13
    lblEnemyCardValue.Text = "EnemyCardValue: " & intEnemyCardValue
ElseIf imgEnemyCards.image Is QueenClubs Or imgEnemyCards.image Is QueenSpades Or imgEnemyCards.image Is QueenHearts Or imgEnemyCards.image Is QueenDiamonds Then
    intEnemyCardValue = 12
    lblEnemyCardValue.Text = "EnemyCardValue: " & intEnemyCardValue
ElseIf imgEnemyCards.image Is JackClubs Or imgEnemyCards.image Is JackSpades Or imgEnemyCards.image Is JackHearts Or imgEnemyCards.image Is JackDiamonds Then
    intEnemyCardValue = 11
    lblEnemyCardValue.Text = "EnemyCardValue: " & intEnemyCardValue
ElseIf imgEnemyCards.image Is TenClubs Or imgEnemyCards.image Is TenSpades Or imgEnemyCards.image Is TenHearts Or imgEnemyCards.image Is TenDiamonds Then
    intEnemyCardValue = 10
    lblEnemyCardValue.Text = "EnemyCardValue: " & intEnemyCardValue
ElseIf imgEnemyCards.image Is NineClubs Or imgEnemyCards.image Is NineSpades Or imgEnemyCards.image Is NineHearts Or imgEnemyCards.image Is NineDiamonds Then
    intEnemyCardValue = 9
    lblEnemyCardValue.Text = "EnemyCardValue: " & intEnemyCardValue
ElseIf imgEnemyCards.image Is EightClubs Or imgEnemyCards.image Is EightSpades Or imgEnemyCards.image Is EightHearts Or imgEnemyCards.image Is EightDiamonds Then
    intEnemyCardValue = 8
    lblEnemyCardValue.Text = "EnemyCardValue: " & intEnemyCardValue
ElseIf imgEnemyCards.image Is SevenClubs Or imgEnemyCards.image Is SevenSpades Or imgEnemyCards.image Is SevenHearts Or imgEnemyCards.image Is SevenDiamonds Then
    intEnemyCardValue = 7
    lblEnemyCardValue.Text = "EnemyCardValue: " & intEnemyCardValue
ElseIf imgEnemyCards.image Is SixClubs Or imgEnemyCards.image Is SixSpades Or imgEnemyCards.image Is SixHearts Or imgEnemyCards.image Is SixDiamonds Then
    intEnemyCardValue = 6
    lblEnemyCardValue.Text = "EnemyCardValue: " & intEnemyCardValue
ElseIf imgEnemyCards.image Is FiveClubs Or imgEnemyCards.image Is FiveSpades Or imgEnemyCards.image Is FiveHearts Or imgEnemyCards.image Is FiveDiamonds Then
    intEnemyCardValue = 5
    lblEnemyCardValue.Text = "EnemyCardValue: " & intEnemyCardValue
ElseIf imgEnemyCards.image Is FourClubs Or imgEnemyCards.image Is FourSpades Or imgEnemyCards.image Is FourHearts Or imgEnemyCards.image Is FourDiamonds Then
    intEnemyCardValue = 4
    lblEnemyCardValue.Text = "EnemyCardValue: " & intEnemyCardValue
ElseIf imgEnemyCards.image Is ThreeClubs Or imgEnemyCards.image Is ThreeSpades Or imgEnemyCards.image Is ThreeHearts Or imgEnemyCards.image Is ThreeDiamonds Then
    intEnemyCardValue = 3
    lblEnemyCardValue.Text = "EnemyCardValue: " & intEnemyCardValue
ElseIf imgEnemyCards.image Is TwoClubs Or imgEnemyCards.image Is TwoSpades Or imgEnemyCards.image Is TwoHearts Or imgEnemyCards.image Is TwoDiamonds Then
    intEnemyCardValue = 2
    lblEnemyCardValue.Text = "EnemyCardValue: " & intEnemyCardValue
End If
If intEnemyCardValue > intPlayerCardValue Then
    imgListCards.Images.RemoveAt(intRanPic)
    imgEnemyListCards.Images.Add(playerCurrentCard)
    intPlayerCardValue = 0
ElseIf intEnemyCardValue < intPlayerCardValue Then
    imgEnemyListCards.Images.RemoveAt(intEnemyCardValue)
    imgListCards.Images.Add(enemyCurrentCard)
End If