SHARE
TWEET

Untitled

a guest Apr 10th, 2019 111 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Class Form1
  2.     Dim c1 As Integer
  3.     Dim c2 As Integer
  4.     Dim c3 As Integer
  5.     Dim c4 As Integer
  6.     Dim c5 As Integer
  7.     Dim c6 As Integer
  8.     Dim c7 As Integer
  9.     Dim c8 As Integer
  10.     Dim c9 As Integer
  11.     Dim c10 As Integer
  12.  
  13.     Dim p1Score As Integer = 26
  14.     Dim p2Score As Integer = 26
  15.  
  16.     Dim pointVal1 As Integer
  17.     Dim pointVal2 As Integer
  18.     Dim pointvalx As Integer
  19.     Dim pointvaly As Integer
  20.  
  21.     Dim cardValue1 As Integer
  22.     Dim cardValue2 As Integer
  23.     Dim cardValue3 As Integer
  24.     Dim cardValue4 As Integer
  25.     Dim cardValue5 As Integer
  26.     Dim cardValue6 As Integer
  27.  
  28.     Private Sub Draw_Click(sender As Object, e As EventArgs) Handles Draw.Click
  29.  
  30.         If c1 = 1 Then
  31.  
  32.             card1.BackgroundImage = My.Resources.aceclubs
  33.             pointVal1 = 14
  34.  
  35.         ElseIf c1 = 2 Then
  36.             card1.BackgroundImage = My.Resources._2clubs
  37.             pointVal1 = 2
  38.  
  39.         ElseIf c1 = 3 Then
  40.             card1.BackgroundImage = My.Resources._3clubs
  41.             pointVal1 = 3
  42.  
  43.         ElseIf c1 = 4 Then
  44.             card1.BackgroundImage = My.Resources._4clubs
  45.             pointVal1 = 4
  46.  
  47.         ElseIf c1 = 5 Then
  48.             card1.BackgroundImage = My.Resources._5clubs
  49.             pointVal1 = 5
  50.  
  51.         ElseIf c1 = 6 Then
  52.             card1.BackgroundImage = My.Resources._6clubs
  53.             pointVal1 = 6
  54.  
  55.         ElseIf c1 = 7 Then
  56.             card1.BackgroundImage = My.Resources._7clubs
  57.             pointVal1 = 7
  58.  
  59.         ElseIf c1 = 8 Then
  60.             card1.BackgroundImage = My.Resources._8clubs
  61.             pointVal1 = 8
  62.  
  63.         ElseIf c1 = 9 Then
  64.             card1.BackgroundImage = My.Resources._9clubs
  65.             pointVal1 = 9
  66.  
  67.         ElseIf c1 = 10 Then
  68.             card1.BackgroundImage = My.Resources._10clubs
  69.             pointVal1 = 10
  70.  
  71.         ElseIf c1 = 11 Then
  72.             card1.BackgroundImage = My.Resources.jackclubs
  73.             pointVal1 = 11
  74.  
  75.         ElseIf c1 = 12 Then
  76.             card1.BackgroundImage = My.Resources.queenclubs
  77.             pointVal1 = 12
  78.  
  79.         ElseIf c1 = 13 Then
  80.             card1.BackgroundImage = My.Resources.kingclubs
  81.             pointVal1 = 13
  82.  
  83.         ElseIf c1 = 14 Then
  84.             card1.BackgroundImage = My.Resources.acespades
  85.             pointVal1 = 14
  86.  
  87.         ElseIf c1 = 15 Then
  88.             card1.BackgroundImage = My.Resources._2spades
  89.             pointVal1 = 2
  90.  
  91.         ElseIf c1 = 16 Then
  92.             card1.BackgroundImage = My.Resources._3spades
  93.             pointVal1 = 3
  94.  
  95.         ElseIf c1 = 17 Then
  96.             card1.BackgroundImage = My.Resources._4spades
  97.             pointVal1 = 4
  98.  
  99.         ElseIf c1 = 18 Then
  100.             card1.BackgroundImage = My.Resources._5spades
  101.             pointVal1 = 5
  102.  
  103.         ElseIf c1 = 19 Then
  104.             card1.BackgroundImage = My.Resources._6spades
  105.             pointVal1 = 6
  106.  
  107.         ElseIf c1 = 20 Then
  108.             card1.BackgroundImage = My.Resources._7spades
  109.             pointVal1 = 7
  110.  
  111.         ElseIf c1 = 21 Then
  112.             card1.BackgroundImage = My.Resources._8spades
  113.             pointVal1 = 8
  114.  
  115.         ElseIf c1 = 22 Then
  116.             card1.BackgroundImage = My.Resources._9spades
  117.             pointVal1 = 9
  118.  
  119.         ElseIf c1 = 23 Then
  120.             card1.BackgroundImage = My.Resources._10spades
  121.             pointVal1 = 10
  122.  
  123.         ElseIf c1 = 24 Then
  124.             card1.BackgroundImage = My.Resources.jackspades
  125.             pointVal1 = 11
  126.  
  127.         ElseIf c1 = 25 Then
  128.             card1.BackgroundImage = My.Resources.queenspades
  129.             pointVal1 = 12
  130.  
  131.         ElseIf c1 = 26 Then
  132.             card1.BackgroundImage = My.Resources.kingspades
  133.             pointVal1 = 13
  134.  
  135.         ElseIf c1 = 27 Then
  136.             card1.BackgroundImage = My.Resources.acediamonds
  137.             pointVal1 = 14
  138.  
  139.         ElseIf c1 = 28 Then
  140.             card1.BackgroundImage = My.Resources._2diamonds
  141.             pointVal1 = 2
  142.  
  143.         ElseIf c1 = 29 Then
  144.             card1.BackgroundImage = My.Resources._3diamonds
  145.             pointVal1 = 3
  146.  
  147.         ElseIf c1 = 30 Then
  148.             card1.BackgroundImage = My.Resources._4diamonds
  149.             pointVal1 = 4
  150.  
  151.         ElseIf c1 = 31 Then
  152.             card1.BackgroundImage = My.Resources._5diamonds
  153.             pointVal1 = 5
  154.  
  155.         ElseIf c1 = 32 Then
  156.             card1.BackgroundImage = My.Resources._6diamonds
  157.             pointVal1 = 6
  158.  
  159.         ElseIf c1 = 33 Then
  160.             card1.BackgroundImage = My.Resources._7diamonds
  161.             pointVal1 = 7
  162.  
  163.         ElseIf c1 = 34 Then
  164.             card1.BackgroundImage = My.Resources._8diamonds
  165.             pointVal1 = 8
  166.  
  167.         ElseIf c1 = 35 Then
  168.             card1.BackgroundImage = My.Resources._9diamonds
  169.             pointVal1 = 9
  170.  
  171.         ElseIf c1 = 36 Then
  172.             card1.BackgroundImage = My.Resources._10diamonds
  173.             pointVal1 = 10
  174.  
  175.         ElseIf c1 = 37 Then
  176.             card1.BackgroundImage = My.Resources.jackdiamonds
  177.             pointVal1 = 11
  178.  
  179.         ElseIf c1 = 38 Then
  180.             card1.BackgroundImage = My.Resources.queendiamonds
  181.             pointVal1 = 12
  182.  
  183.         ElseIf c1 = 39 Then
  184.             card1.BackgroundImage = My.Resources.kingdiamonds
  185.             pointVal1 = 13
  186.  
  187.         ElseIf c1 = 40 Then
  188.             card1.BackgroundImage = My.Resources.acehearts
  189.             pointVal1 = 14
  190.  
  191.         ElseIf c1 = 41 Then
  192.             card1.BackgroundImage = My.Resources._2hearts
  193.             pointVal1 = 2
  194.  
  195.         ElseIf c1 = 42 Then
  196.             card1.BackgroundImage = My.Resources._3hearts
  197.             pointVal1 = 3
  198.  
  199.         ElseIf c1 = 43 Then
  200.             card1.BackgroundImage = My.Resources._4hearts
  201.             pointVal1 = 4
  202.  
  203.         ElseIf c1 = 44 Then
  204.             card1.BackgroundImage = My.Resources._5hearts
  205.             pointVal1 = 5
  206.  
  207.         ElseIf c1 = 45 Then
  208.             card1.BackgroundImage = My.Resources._6hearts
  209.             pointVal1 = 6
  210.  
  211.         ElseIf c1 = 46 Then
  212.             card1.BackgroundImage = My.Resources._7hearts
  213.             pointVal1 = 7
  214.  
  215.         ElseIf c1 = 47 Then
  216.             card1.BackgroundImage = My.Resources._8hearts
  217.             pointVal1 = 8
  218.  
  219.         ElseIf c1 = 48 Then
  220.             card1.BackgroundImage = My.Resources._9hearts
  221.             pointVal1 = 9
  222.  
  223.         ElseIf c1 = 49 Then
  224.             card1.BackgroundImage = My.Resources._10hearts
  225.             pointVal1 = 10
  226.  
  227.         ElseIf c1 = 50 Then
  228.             card1.BackgroundImage = My.Resources.jackclubs
  229.             pointVal1 = 11
  230.  
  231.         ElseIf c1 = 51 Then
  232.             card1.BackgroundImage = My.Resources.queenclubs
  233.             pointVal1 = 12
  234.  
  235.         ElseIf c1 = 52 Then
  236.             card1.BackgroundImage = My.Resources.kingclubs
  237.             pointVal1 = 13
  238.         End If
  239.  
  240.         If c2 = 1 Then
  241.  
  242.             card2.BackgroundImage = My.Resources.aceclubs
  243.             pointVal1 = 14
  244.  
  245.         ElseIf c2 = 2 Then
  246.             card2.BackgroundImage = My.Resources._2clubs
  247.             pointVal1 = 2
  248.  
  249.         ElseIf c2 = 3 Then
  250.             card2.BackgroundImage = My.Resources._3clubs
  251.             pointVal1 = 3
  252.  
  253.         ElseIf c2 = 4 Then
  254.             card2.BackgroundImage = My.Resources._4clubs
  255.             pointVal1 = 4
  256.  
  257.         ElseIf c2 = 5 Then
  258.             card2.BackgroundImage = My.Resources._5clubs
  259.             pointVal1 = 5
  260.  
  261.         ElseIf c2 = 6 Then
  262.             card2.BackgroundImage = My.Resources._6clubs
  263.             pointVal1 = 6
  264.  
  265.         ElseIf c2 = 7 Then
  266.             card2.BackgroundImage = My.Resources._7clubs
  267.             pointVal1 = 7
  268.  
  269.         ElseIf c2 = 8 Then
  270.             card2.BackgroundImage = My.Resources._8clubs
  271.             pointVal1 = 8
  272.  
  273.         ElseIf c2 = 9 Then
  274.             card2.BackgroundImage = My.Resources._9clubs
  275.             pointVal1 = 9
  276.  
  277.         ElseIf c2 = 10 Then
  278.             card2.BackgroundImage = My.Resources._10clubs
  279.             pointVal1 = 10
  280.  
  281.         ElseIf c2 = 11 Then
  282.             card2.BackgroundImage = My.Resources.jackclubs
  283.             pointVal1 = 11
  284.  
  285.         ElseIf c2 = 12 Then
  286.             card2.BackgroundImage = My.Resources.queenclubs
  287.             pointVal1 = 12
  288.  
  289.         ElseIf c2 = 13 Then
  290.             card2.BackgroundImage = My.Resources.kingclubs
  291.             pointVal1 = 13
  292.  
  293.         ElseIf c2 = 14 Then
  294.             card2.BackgroundImage = My.Resources.acespades
  295.             pointVal1 = 14
  296.  
  297.         ElseIf c2 = 15 Then
  298.             card2.BackgroundImage = My.Resources._2spades
  299.             pointVal1 = 2
  300.  
  301.         ElseIf c2 = 16 Then
  302.             card2.BackgroundImage = My.Resources._3spades
  303.             pointVal1 = 3
  304.  
  305.         ElseIf c2 = 17 Then
  306.             card2.BackgroundImage = My.Resources._4spades
  307.             pointVal1 = 4
  308.  
  309.         ElseIf c2 = 18 Then
  310.             card2.BackgroundImage = My.Resources._5spades
  311.             pointVal1 = 5
  312.  
  313.         ElseIf c2 = 19 Then
  314.             card2.BackgroundImage = My.Resources._6spades
  315.             pointVal1 = 6
  316.  
  317.         ElseIf c2 = 20 Then
  318.             card2.BackgroundImage = My.Resources._7spades
  319.             pointVal1 = 7
  320.  
  321.         ElseIf c2 = 21 Then
  322.             card2.BackgroundImage = My.Resources._8spades
  323.             pointVal1 = 8
  324.  
  325.         ElseIf c2 = 22 Then
  326.             card2.BackgroundImage = My.Resources._9spades
  327.             pointVal1 = 9
  328.  
  329.         ElseIf c2 = 23 Then
  330.             card2.BackgroundImage = My.Resources._10spades
  331.             pointVal1 = 10
  332.  
  333.         ElseIf c2 = 24 Then
  334.             card2.BackgroundImage = My.Resources.jackspades
  335.             pointVal1 = 11
  336.  
  337.         ElseIf c2 = 25 Then
  338.             card2.BackgroundImage = My.Resources.queenspades
  339.             pointVal1 = 12
  340.  
  341.         ElseIf c2 = 26 Then
  342.             card2.BackgroundImage = My.Resources.kingspades
  343.             pointVal1 = 13
  344.  
  345.         ElseIf c2 = 27 Then
  346.             card2.BackgroundImage = My.Resources.acediamonds
  347.             pointVal1 = 14
  348.  
  349.         ElseIf c2 = 28 Then
  350.             card2.BackgroundImage = My.Resources._2diamonds
  351.             pointVal1 = 2
  352.  
  353.         ElseIf c2 = 29 Then
  354.             card2.BackgroundImage = My.Resources._3diamonds
  355.             pointVal1 = 3
  356.  
  357.         ElseIf c2 = 30 Then
  358.             card2.BackgroundImage = My.Resources._4diamonds
  359.             pointVal1 = 4
  360.  
  361.         ElseIf c2 = 31 Then
  362.             card2.BackgroundImage = My.Resources._5diamonds
  363.             pointVal1 = 5
  364.  
  365.         ElseIf c2 = 32 Then
  366.             card2.BackgroundImage = My.Resources._6diamonds
  367.             pointVal1 = 6
  368.  
  369.         ElseIf c2 = 33 Then
  370.             card2.BackgroundImage = My.Resources._7diamonds
  371.             pointVal1 = 7
  372.  
  373.         ElseIf c2 = 34 Then
  374.             card2.BackgroundImage = My.Resources._8diamonds
  375.             pointVal1 = 8
  376.  
  377.         ElseIf c2 = 35 Then
  378.             card2.BackgroundImage = My.Resources._9diamonds
  379.             pointVal1 = 9
  380.  
  381.         ElseIf c2 = 36 Then
  382.             card2.BackgroundImage = My.Resources._10diamonds
  383.             pointVal1 = 10
  384.  
  385.         ElseIf c2 = 37 Then
  386.             card2.BackgroundImage = My.Resources.jackdiamonds
  387.             pointVal1 = 11
  388.  
  389.         ElseIf c2 = 38 Then
  390.             card2.BackgroundImage = My.Resources.queendiamonds
  391.             pointVal1 = 12
  392.  
  393.         ElseIf c2 = 39 Then
  394.             card2.BackgroundImage = My.Resources.kingdiamonds
  395.             pointVal1 = 13
  396.  
  397.         ElseIf c2 = 40 Then
  398.             card2.BackgroundImage = My.Resources.acehearts
  399.             pointVal1 = 14
  400.  
  401.         ElseIf c2 = 41 Then
  402.             card2.BackgroundImage = My.Resources._2hearts
  403.             pointVal1 = 2
  404.  
  405.         ElseIf c2 = 42 Then
  406.             card2.BackgroundImage = My.Resources._3hearts
  407.             pointVal1 = 3
  408.  
  409.         ElseIf c2 = 43 Then
  410.             card2.BackgroundImage = My.Resources._4hearts
  411.             pointVal1 = 4
  412.  
  413.         ElseIf c2 = 44 Then
  414.             card2.BackgroundImage = My.Resources._5hearts
  415.             pointVal1 = 5
  416.  
  417.         ElseIf c2 = 45 Then
  418.             card2.BackgroundImage = My.Resources._6hearts
  419.             pointVal1 = 6
  420.  
  421.         ElseIf c2 = 46 Then
  422.             card2.BackgroundImage = My.Resources._7hearts
  423.             pointVal1 = 7
  424.  
  425.         ElseIf c2 = 47 Then
  426.             card2.BackgroundImage = My.Resources._8hearts
  427.             pointVal1 = 8
  428.  
  429.         ElseIf c2 = 48 Then
  430.             card2.BackgroundImage = My.Resources._9hearts
  431.             pointVal1 = 9
  432.  
  433.         ElseIf c2 = 49 Then
  434.             card2.BackgroundImage = My.Resources._10hearts
  435.             pointVal1 = 10
  436.  
  437.         ElseIf c2 = 50 Then
  438.             card2.BackgroundImage = My.Resources.jackclubs
  439.             pointVal1 = 11
  440.  
  441.         ElseIf c2 = 51 Then
  442.             card2.BackgroundImage = My.Resources.queenclubs
  443.             pointVal1 = 12
  444.  
  445.         ElseIf c2 = 52 Then
  446.             card2.BackgroundImage = My.Resources.kingclubs
  447.             pointVal1 = 13
  448.         End If
  449.  
  450.     End Sub
  451.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Draw.Click
  452.  
  453.         Randomize()
  454.  
  455.         Label11.Text = p1Score
  456.         Label12.Text = p2Score
  457.  
  458.         p1Score = p1Score - 1
  459.         p2Score = p2Score - 1
  460.  
  461.         cardValue1 = (Rnd() * 52) + 1
  462.         cardValue2 = (Rnd() * 52) + 1
  463.  
  464.         Label9.Text = pointVal1
  465.         Label10.Text = pointVal2
  466.  
  467.         pointVal1 = pointVal1
  468.         pointVal2 = pointVal2
  469.  
  470.  
  471.  
  472.  
  473.         If pointVal1 > pointVal2 Then
  474.             p1Score = p1Score + 2
  475.         End If
  476.         If pointVal2 > pointVal1 Then
  477.             p2Score = p2Score + 2
  478.         End If
  479.         If pointVal1 = pointVal2 Then
  480.             Label3.Text = “WAR!”
  481.             cardValue1 = (Rnd() * 52) + 1
  482.             cardValue2 = (Rnd() * 52) + 1
  483.             cardValue3 = (Rnd() * 52) + 1
  484.             cardValue4 = (Rnd() * 52) + 1
  485.             cardValue5 = (Rnd() * 52) + 1
  486.             cardValue6 = (Rnd() * 52) + 1
  487.  
  488.             If c3 = 1 Then
  489.  
  490.                 card3.BackgroundImage = My.Resources.aceclubs
  491.                 pointvalx = 14
  492.  
  493.             ElseIf c3 = 2 Then
  494.                 card3.BackgroundImage = My.Resources._2clubs
  495.                 pointvalx = 2
  496.  
  497.             ElseIf c3 = 3 Then
  498.                 card3.BackgroundImage = My.Resources._3clubs
  499.                 pointvalx = 3
  500.  
  501.             ElseIf c3 = 4 Then
  502.                 card3.BackgroundImage = My.Resources._4clubs
  503.                 pointvalx = 4
  504.  
  505.             ElseIf c3 = 5 Then
  506.                 card3.BackgroundImage = My.Resources._5clubs
  507.                 pointvalx = 5
  508.  
  509.             ElseIf c3 = 6 Then
  510.                 card3.BackgroundImage = My.Resources._6clubs
  511.                 pointvalx = 6
  512.  
  513.             ElseIf c3 = 7 Then
  514.                 card3.BackgroundImage = My.Resources._7clubs
  515.                 pointvalx = 7
  516.  
  517.             ElseIf c3 = 8 Then
  518.                 card3.BackgroundImage = My.Resources._8clubs
  519.                 pointvalx = 8
  520.  
  521.             ElseIf c3 = 9 Then
  522.                 card3.BackgroundImage = My.Resources._9clubs
  523.                 pointvalx = 9
  524.  
  525.             ElseIf c3 = 10 Then
  526.                 card3.BackgroundImage = My.Resources._10clubs
  527.                 pointvalx = 10
  528.  
  529.             ElseIf c3 = 11 Then
  530.                 card3.BackgroundImage = My.Resources.jackclubs
  531.                 pointvalx = 11
  532.  
  533.             ElseIf c3 = 12 Then
  534.                 card3.BackgroundImage = My.Resources.queenclubs
  535.                 pointvalx = 12
  536.  
  537.             ElseIf c3 = 13 Then
  538.                 card3.BackgroundImage = My.Resources.kingclubs
  539.                 pointvalx = 13
  540.  
  541.             ElseIf c3 = 14 Then
  542.                 card3.BackgroundImage = My.Resources.acespades
  543.                 pointvalx = 14
  544.  
  545.             ElseIf c3 = 15 Then
  546.                 card3.BackgroundImage = My.Resources._2spades
  547.                 pointvalx = 2
  548.  
  549.             ElseIf c3 = 16 Then
  550.                 card3.BackgroundImage = My.Resources._3spades
  551.                 pointvalx = 3
  552.  
  553.             ElseIf c3 = 17 Then
  554.                 card3.BackgroundImage = My.Resources._4spades
  555.                 pointvalx = 4
  556.  
  557.             ElseIf c3 = 18 Then
  558.                 card3.BackgroundImage = My.Resources._5spades
  559.                 pointvalx = 5
  560.  
  561.             ElseIf c3 = 19 Then
  562.                 card3.BackgroundImage = My.Resources._6spades
  563.                 pointvalx = 6
  564.  
  565.             ElseIf c3 = 20 Then
  566.                 card3.BackgroundImage = My.Resources._7spades
  567.                 pointvalx = 7
  568.  
  569.             ElseIf c3 = 21 Then
  570.                 card3.BackgroundImage = My.Resources._8spades
  571.                 pointvalx = 8
  572.  
  573.             ElseIf c3 = 22 Then
  574.                 card3.BackgroundImage = My.Resources._9spades
  575.                 pointvalx = 9
  576.  
  577.             ElseIf c3 = 23 Then
  578.                 card3.BackgroundImage = My.Resources._10spades
  579.                 pointvalx = 10
  580.  
  581.             ElseIf c3 = 24 Then
  582.                 card3.BackgroundImage = My.Resources.jackspades
  583.                 pointvalx = 11
  584.  
  585.             ElseIf c3 = 25 Then
  586.                 card3.BackgroundImage = My.Resources.queenspades
  587.                 pointvalx = 12
  588.  
  589.             ElseIf c3 = 26 Then
  590.                 card3.BackgroundImage = My.Resources.kingspades
  591.                 pointvalx = 13
  592.  
  593.             ElseIf c3 = 27 Then
  594.                 card3.BackgroundImage = My.Resources.acediamonds
  595.                 pointvalx = 14
  596.  
  597.             ElseIf c3 = 28 Then
  598.                 card3.BackgroundImage = My.Resources._2diamonds
  599.                 pointvalx = 2
  600.  
  601.             ElseIf c3 = 29 Then
  602.                 card3.BackgroundImage = My.Resources._3diamonds
  603.                 pointvalx = 3
  604.  
  605.             ElseIf c3 = 30 Then
  606.                 card3.BackgroundImage = My.Resources._4diamonds
  607.                 pointvalx = 4
  608.  
  609.             ElseIf c3 = 31 Then
  610.                 card3.BackgroundImage = My.Resources._5diamonds
  611.                 pointvalx = 5
  612.  
  613.             ElseIf c3 = 32 Then
  614.                 card3.BackgroundImage = My.Resources._6diamonds
  615.                 pointvalx = 6
  616.  
  617.             ElseIf c3 = 33 Then
  618.                 card3.BackgroundImage = My.Resources._7diamonds
  619.                 pointvalx = 7
  620.  
  621.             ElseIf c3 = 34 Then
  622.                 card3.BackgroundImage = My.Resources._8diamonds
  623.                 pointvalx = 8
  624.  
  625.             ElseIf c3 = 35 Then
  626.                 card3.BackgroundImage = My.Resources._9diamonds
  627.                 pointvalx = 9
  628.  
  629.             ElseIf c3 = 36 Then
  630.                 card3.BackgroundImage = My.Resources._10diamonds
  631.                 pointvalx = 10
  632.  
  633.             ElseIf c3 = 37 Then
  634.                 card3.BackgroundImage = My.Resources.jackdiamonds
  635.                 pointvalx = 11
  636.  
  637.             ElseIf c3 = 38 Then
  638.                 card3.BackgroundImage = My.Resources.queendiamonds
  639.                 pointvalx = 12
  640.  
  641.             ElseIf c3 = 39 Then
  642.                 card3.BackgroundImage = My.Resources.kingdiamonds
  643.                 pointvalx = 13
  644.  
  645.             ElseIf c3 = 40 Then
  646.                 card3.BackgroundImage = My.Resources.acehearts
  647.                 pointvalx = 14
  648.  
  649.             ElseIf c3 = 41 Then
  650.                 card3.BackgroundImage = My.Resources._2hearts
  651.                 pointvalx = 2
  652.  
  653.             ElseIf c3 = 42 Then
  654.                 card3.BackgroundImage = My.Resources._3hearts
  655.                 pointvalx = 3
  656.  
  657.             ElseIf c3 = 43 Then
  658.                 card3.BackgroundImage = My.Resources._4hearts
  659.                 pointvalx = 4
  660.  
  661.             ElseIf c3 = 44 Then
  662.                 card3.BackgroundImage = My.Resources._5hearts
  663.                 pointvalx = 5
  664.  
  665.             ElseIf c3 = 45 Then
  666.                 card3.BackgroundImage = My.Resources._6hearts
  667.                 pointvalx = 6
  668.  
  669.             ElseIf c3 = 46 Then
  670.                 card3.BackgroundImage = My.Resources._7hearts
  671.                 pointvalx = 7
  672.  
  673.             ElseIf c3 = 47 Then
  674.                 card3.BackgroundImage = My.Resources._8hearts
  675.                 pointvalx = 8
  676.  
  677.             ElseIf c3 = 48 Then
  678.                 card3.BackgroundImage = My.Resources._9hearts
  679.                 pointvalx = 9
  680.  
  681.             ElseIf c3 = 49 Then
  682.                 card3.BackgroundImage = My.Resources._10hearts
  683.                 pointvalx = 10
  684.  
  685.             ElseIf c3 = 50 Then
  686.                 card3.BackgroundImage = My.Resources.jackclubs
  687.                 pointvalx = 11
  688.  
  689.             ElseIf c3 = 51 Then
  690.                 card3.BackgroundImage = My.Resources.queenclubs
  691.                 pointvalx = 12
  692.  
  693.             ElseIf c3 = 52 Then
  694.                 card3.BackgroundImage = My.Resources.kingclubs
  695.                 pointvalx = 13
  696.             End If
  697.  
  698.  
  699.  
  700.             If c4 = 1 Then
  701.  
  702.                 card4.BackgroundImage = My.Resources.aceclubs
  703.                 pointvaly = 14
  704.  
  705.             ElseIf c4 = 2 Then
  706.                 card4.BackgroundImage = My.Resources._2clubs
  707.                 pointvaly = 2
  708.  
  709.             ElseIf c4 = 3 Then
  710.                 card4.BackgroundImage = My.Resources._3clubs
  711.                 pointvaly = 3
  712.  
  713.             ElseIf c4 = 4 Then
  714.                 card4.BackgroundImage = My.Resources._4clubs
  715.                 pointvaly = 4
  716.  
  717.             ElseIf c4 = 5 Then
  718.                 card4.BackgroundImage = My.Resources._5clubs
  719.                 pointvaly = 5
  720.  
  721.             ElseIf c4 = 6 Then
  722.                 card4.BackgroundImage = My.Resources._6clubs
  723.                 pointvaly = 6
  724.  
  725.             ElseIf c4 = 7 Then
  726.                 card4.BackgroundImage = My.Resources._7clubs
  727.                 pointvaly = 7
  728.  
  729.             ElseIf c4 = 8 Then
  730.                 card4.BackgroundImage = My.Resources._8clubs
  731.                 pointvaly = 8
  732.  
  733.             ElseIf c4 = 9 Then
  734.                 card4.BackgroundImage = My.Resources._9clubs
  735.                 pointvaly = 9
  736.  
  737.             ElseIf c4 = 10 Then
  738.                 card4.BackgroundImage = My.Resources._10clubs
  739.                 pointvaly = 10
  740.  
  741.             ElseIf c4 = 11 Then
  742.                 card4.BackgroundImage = My.Resources.jackclubs
  743.                 pointvaly = 11
  744.  
  745.             ElseIf c4 = 12 Then
  746.                 card4.BackgroundImage = My.Resources.queenclubs
  747.                 pointvaly = 12
  748.  
  749.             ElseIf c4 = 13 Then
  750.                 card4.BackgroundImage = My.Resources.kingclubs
  751.                 pointvaly = 13
  752.  
  753.             ElseIf c4 = 14 Then
  754.                 card4.BackgroundImage = My.Resources.acespades
  755.                 pointvaly = 14
  756.  
  757.             ElseIf c4 = 15 Then
  758.                 card4.BackgroundImage = My.Resources._2spades
  759.                 pointvaly = 2
  760.  
  761.             ElseIf c4 = 16 Then
  762.                 card4.BackgroundImage = My.Resources._3spades
  763.                 pointvaly = 3
  764.  
  765.             ElseIf c4 = 17 Then
  766.                 card4.BackgroundImage = My.Resources._4spades
  767.                 pointvaly = 4
  768.  
  769.             ElseIf c4 = 18 Then
  770.                 card4.BackgroundImage = My.Resources._5spades
  771.                 pointvaly = 5
  772.  
  773.             ElseIf c4 = 19 Then
  774.                 card4.BackgroundImage = My.Resources._6spades
  775.                 pointvaly = 6
  776.  
  777.             ElseIf c4 = 20 Then
  778.                 card4.BackgroundImage = My.Resources._7spades
  779.                 pointvaly = 7
  780.  
  781.             ElseIf c4 = 21 Then
  782.                 card4.BackgroundImage = My.Resources._8spades
  783.                 pointvaly = 8
  784.  
  785.             ElseIf c4 = 22 Then
  786.                 card4.BackgroundImage = My.Resources._9spades
  787.                 pointvaly = 9
  788.  
  789.             ElseIf c4 = 23 Then
  790.                 card4.BackgroundImage = My.Resources._10spades
  791.                 pointvaly = 10
  792.  
  793.             ElseIf c4 = 24 Then
  794.                 card4.BackgroundImage = My.Resources.jackspades
  795.                 pointvaly = 11
  796.  
  797.             ElseIf c4 = 25 Then
  798.                 card4.BackgroundImage = My.Resources.queenspades
  799.                 pointvaly = 12
  800.  
  801.             ElseIf c4 = 26 Then
  802.                 card4.BackgroundImage = My.Resources.kingspades
  803.                 pointvaly = 13
  804.  
  805.             ElseIf c4 = 27 Then
  806.                 card4.BackgroundImage = My.Resources.acediamonds
  807.                 pointvaly = 14
  808.  
  809.             ElseIf c4 = 28 Then
  810.                 card4.BackgroundImage = My.Resources._2diamonds
  811.                 pointvaly = 2
  812.  
  813.             ElseIf c4 = 29 Then
  814.                 card4.BackgroundImage = My.Resources._3diamonds
  815.                 pointvaly = 3
  816.  
  817.             ElseIf c4 = 30 Then
  818.                 card4.BackgroundImage = My.Resources._4diamonds
  819.                 pointvaly = 4
  820.  
  821.             ElseIf c4 = 31 Then
  822.                 card4.BackgroundImage = My.Resources._5diamonds
  823.                 pointvaly = 5
  824.  
  825.             ElseIf c4 = 32 Then
  826.                 card4.BackgroundImage = My.Resources._6diamonds
  827.                 pointvaly = 6
  828.  
  829.             ElseIf c4 = 33 Then
  830.                 card4.BackgroundImage = My.Resources._7diamonds
  831.                 pointvaly = 7
  832.  
  833.             ElseIf c4 = 34 Then
  834.                 card4.BackgroundImage = My.Resources._8diamonds
  835.                 pointvaly = 8
  836.  
  837.             ElseIf c4 = 35 Then
  838.                 card4.BackgroundImage = My.Resources._9diamonds
  839.                 pointvaly = 9
  840.  
  841.             ElseIf c4 = 36 Then
  842.                 card4.BackgroundImage = My.Resources._10diamonds
  843.                 pointvaly = 10
  844.  
  845.             ElseIf c4 = 37 Then
  846.                 card4.BackgroundImage = My.Resources.jackdiamonds
  847.                 pointvaly = 11
  848.  
  849.             ElseIf c4 = 38 Then
  850.                 card4.BackgroundImage = My.Resources.queendiamonds
  851.                 pointvaly = 12
  852.  
  853.             ElseIf c4 = 39 Then
  854.                 card4.BackgroundImage = My.Resources.kingdiamonds
  855.                 pointvaly = 13
  856.  
  857.             ElseIf c4 = 40 Then
  858.                 card4.BackgroundImage = My.Resources.acehearts
  859.                 pointvaly = 14
  860.  
  861.             ElseIf c4 = 41 Then
  862.                 card4.BackgroundImage = My.Resources._2hearts
  863.                 pointvaly = 2
  864.  
  865.             ElseIf c4 = 42 Then
  866.                 card4.BackgroundImage = My.Resources._3hearts
  867.                 pointvaly = 3
  868.  
  869.             ElseIf c4 = 43 Then
  870.                 card4.BackgroundImage = My.Resources._4hearts
  871.                 pointvaly = 4
  872.  
  873.             ElseIf c4 = 44 Then
  874.                 card4.BackgroundImage = My.Resources._5hearts
  875.                 pointvaly = 5
  876.  
  877.             ElseIf c4 = 45 Then
  878.                 card4.BackgroundImage = My.Resources._6hearts
  879.                 pointvaly = 6
  880.  
  881.             ElseIf c4 = 46 Then
  882.                 card4.BackgroundImage = My.Resources._7hearts
  883.                 pointvaly = 7
  884.  
  885.             ElseIf c4 = 47 Then
  886.                 card4.BackgroundImage = My.Resources._8hearts
  887.                 pointvaly = 8
  888.  
  889.             ElseIf c4 = 48 Then
  890.                 card4.BackgroundImage = My.Resources._9hearts
  891.                 pointvaly = 9
  892.  
  893.             ElseIf c4 = 49 Then
  894.                 card4.BackgroundImage = My.Resources._10hearts
  895.                 pointvaly = 10
  896.  
  897.             ElseIf c4 = 50 Then
  898.                 card4.BackgroundImage = My.Resources.jackclubs
  899.                 pointvaly = 11
  900.  
  901.             ElseIf c4 = 51 Then
  902.                 card4.BackgroundImage = My.Resources.queenclubs
  903.                 pointvaly = 12
  904.  
  905.             ElseIf c4 = 52 Then
  906.                 card4.BackgroundImage = My.Resources.kingclubs
  907.                 pointvaly = 13
  908.             End If
  909.  
  910.  
  911.             If c5 = 1 Then
  912.  
  913.                 card5.BackgroundImage = My.Resources.aceclubs
  914.                 pointVal1 = 14
  915.  
  916.             ElseIf c5 = 2 Then
  917.                 card5.BackgroundImage = My.Resources._2clubs
  918.                 pointVal1 = 2
  919.  
  920.             ElseIf c5 = 3 Then
  921.                 card5.BackgroundImage = My.Resources._3clubs
  922.                 pointVal1 = 3
  923.  
  924.             ElseIf c5 = 4 Then
  925.                 card5.BackgroundImage = My.Resources._4clubs
  926.                 pointVal1 = 4
  927.  
  928.             ElseIf c5 = 5 Then
  929.                 card5.BackgroundImage = My.Resources._5clubs
  930.                 pointVal1 = 5
  931.  
  932.             ElseIf c5 = 6 Then
  933.                 card5.BackgroundImage = My.Resources._6clubs
  934.                 pointVal1 = 6
  935.  
  936.             ElseIf c5 = 7 Then
  937.                 card5.BackgroundImage = My.Resources._7clubs
  938.                 pointVal1 = 7
  939.  
  940.             ElseIf c5 = 8 Then
  941.                 card5.BackgroundImage = My.Resources._8clubs
  942.                 pointVal1 = 8
  943.  
  944.             ElseIf c5 = 9 Then
  945.                 card5.BackgroundImage = My.Resources._9clubs
  946.                 pointVal1 = 9
  947.  
  948.             ElseIf c5 = 10 Then
  949.                 card5.BackgroundImage = My.Resources._10clubs
  950.                 pointVal1 = 10
  951.  
  952.             ElseIf c5 = 11 Then
  953.                 card5.BackgroundImage = My.Resources.jackclubs
  954.                 pointVal1 = 11
  955.  
  956.             ElseIf c5 = 12 Then
  957.                 card5.BackgroundImage = My.Resources.queenclubs
  958.                 pointVal1 = 12
  959.  
  960.             ElseIf c5 = 13 Then
  961.                 card5.BackgroundImage = My.Resources.kingclubs
  962.                 pointVal1 = 13
  963.  
  964.             ElseIf c5 = 14 Then
  965.                 card5.BackgroundImage = My.Resources.acespades
  966.                 pointVal1 = 14
  967.  
  968.             ElseIf c5 = 15 Then
  969.                 card5.BackgroundImage = My.Resources._2spades
  970.                 pointVal1 = 2
  971.  
  972.             ElseIf c5 = 16 Then
  973.                 card5.BackgroundImage = My.Resources._3spades
  974.                 pointVal1 = 3
  975.  
  976.             ElseIf c5 = 17 Then
  977.                 card5.BackgroundImage = My.Resources._4spades
  978.                 pointVal1 = 4
  979.  
  980.             ElseIf c5 = 18 Then
  981.                 card5.BackgroundImage = My.Resources._5spades
  982.                 pointVal1 = 5
  983.  
  984.             ElseIf c5 = 19 Then
  985.                 card5.BackgroundImage = My.Resources._6spades
  986.                 pointVal1 = 6
  987.  
  988.             ElseIf c5 = 20 Then
  989.                 card5.BackgroundImage = My.Resources._7spades
  990.                 pointVal1 = 7
  991.  
  992.             ElseIf c5 = 21 Then
  993.                 card5.BackgroundImage = My.Resources._8spades
  994.                 pointVal1 = 8
  995.  
  996.             ElseIf c5 = 22 Then
  997.                 card5.BackgroundImage = My.Resources._9spades
  998.                 pointVal1 = 9
  999.  
  1000.             ElseIf c5 = 23 Then
  1001.                 card5.BackgroundImage = My.Resources._10spades
  1002.                 pointVal1 = 10
  1003.  
  1004.             ElseIf c5 = 24 Then
  1005.                 card5.BackgroundImage = My.Resources.jackspades
  1006.                 pointVal1 = 11
  1007.  
  1008.             ElseIf c5 = 25 Then
  1009.                 card5.BackgroundImage = My.Resources.queenspades
  1010.                 pointVal1 = 12
  1011.  
  1012.             ElseIf c5 = 26 Then
  1013.                 card5.BackgroundImage = My.Resources.kingspades
  1014.                 pointVal1 = 13
  1015.  
  1016.             ElseIf c5 = 27 Then
  1017.                 card5.BackgroundImage = My.Resources.acediamonds
  1018.                 pointVal1 = 14
  1019.  
  1020.             ElseIf c5 = 28 Then
  1021.                 card5.BackgroundImage = My.Resources._2diamonds
  1022.                 pointVal1 = 2
  1023.  
  1024.             ElseIf c5 = 29 Then
  1025.                 card5.BackgroundImage = My.Resources._3diamonds
  1026.                 pointVal1 = 3
  1027.  
  1028.             ElseIf c5 = 30 Then
  1029.                 card5.BackgroundImage = My.Resources._4diamonds
  1030.                 pointVal1 = 4
  1031.  
  1032.             ElseIf c5 = 31 Then
  1033.                 card5.BackgroundImage = My.Resources._5diamonds
  1034.                 pointVal1 = 5
  1035.  
  1036.             ElseIf c5 = 32 Then
  1037.                 card5.BackgroundImage = My.Resources._6diamonds
  1038.                 pointVal1 = 6
  1039.  
  1040.             ElseIf c5 = 33 Then
  1041.                 card5.BackgroundImage = My.Resources._7diamonds
  1042.                 pointVal1 = 7
  1043.  
  1044.             ElseIf c5 = 34 Then
  1045.                 card5.BackgroundImage = My.Resources._8diamonds
  1046.                 pointVal1 = 8
  1047.  
  1048.             ElseIf c5 = 35 Then
  1049.                 card5.BackgroundImage = My.Resources._9diamonds
  1050.                 pointVal1 = 9
  1051.  
  1052.             ElseIf c5 = 36 Then
  1053.                 card5.BackgroundImage = My.Resources._10diamonds
  1054.                 pointVal1 = 10
  1055.  
  1056.             ElseIf c5 = 37 Then
  1057.                 card5.BackgroundImage = My.Resources.jackdiamonds
  1058.                 pointVal1 = 11
  1059.  
  1060.             ElseIf c5 = 38 Then
  1061.                 card5.BackgroundImage = My.Resources.queendiamonds
  1062.                 pointVal1 = 12
  1063.  
  1064.             ElseIf c5 = 39 Then
  1065.                 card5.BackgroundImage = My.Resources.kingdiamonds
  1066.                 pointVal1 = 13
  1067.  
  1068.             ElseIf c5 = 40 Then
  1069.                 card5.BackgroundImage = My.Resources.acehearts
  1070.                 pointVal1 = 14
  1071.  
  1072.             ElseIf c5 = 41 Then
  1073.                 card5.BackgroundImage = My.Resources._2hearts
  1074.                 pointVal1 = 2
  1075.  
  1076.             ElseIf c5 = 42 Then
  1077.                 card5.BackgroundImage = My.Resources._3hearts
  1078.                 pointVal1 = 3
  1079.  
  1080.             ElseIf c5 = 43 Then
  1081.                 card5.BackgroundImage = My.Resources._4hearts
  1082.                 pointVal1 = 4
  1083.  
  1084.             ElseIf c5 = 44 Then
  1085.                 card5.BackgroundImage = My.Resources._5hearts
  1086.                 pointVal1 = 5
  1087.  
  1088.             ElseIf c5 = 45 Then
  1089.                 card5.BackgroundImage = My.Resources._6hearts
  1090.                 pointVal1 = 6
  1091.  
  1092.             ElseIf c5 = 46 Then
  1093.                 card5.BackgroundImage = My.Resources._7hearts
  1094.                 pointVal1 = 7
  1095.  
  1096.             ElseIf c5 = 47 Then
  1097.                 card5.BackgroundImage = My.Resources._8hearts
  1098.                 pointVal1 = 8
  1099.  
  1100.             ElseIf c5 = 48 Then
  1101.                 card5.BackgroundImage = My.Resources._9hearts
  1102.                 pointVal1 = 9
  1103.  
  1104.             ElseIf c5 = 49 Then
  1105.                 card5.BackgroundImage = My.Resources._10hearts
  1106.                 pointVal1 = 10
  1107.  
  1108.             ElseIf c5 = 50 Then
  1109.                 card5.BackgroundImage = My.Resources.jackclubs
  1110.                 pointVal1 = 11
  1111.  
  1112.             ElseIf c5 = 51 Then
  1113.                 card5.BackgroundImage = My.Resources.queenclubs
  1114.                 pointVal1 = 12
  1115.  
  1116.             ElseIf c5 = 52 Then
  1117.                 card5.BackgroundImage = My.Resources.kingclubs
  1118.                 pointVal1 = 13
  1119.             End If
  1120.  
  1121.  
  1122.             If c6 = 1 Then
  1123.  
  1124.                 card6.BackgroundImage = My.Resources.aceclubs
  1125.                 pointVal1 = 14
  1126.  
  1127.             ElseIf c6 = 2 Then
  1128.                 card6.BackgroundImage = My.Resources._2clubs
  1129.                 pointVal1 = 2
  1130.  
  1131.             ElseIf c6 = 3 Then
  1132.                 card6.BackgroundImage = My.Resources._3clubs
  1133.                 pointVal1 = 3
  1134.  
  1135.             ElseIf c6 = 4 Then
  1136.                 card6.BackgroundImage = My.Resources._4clubs
  1137.                 pointVal1 = 4
  1138.  
  1139.             ElseIf c6 = 5 Then
  1140.                 card6.BackgroundImage = My.Resources._5clubs
  1141.                 pointVal1 = 5
  1142.  
  1143.             ElseIf c6 = 6 Then
  1144.                 card6.BackgroundImage = My.Resources._6clubs
  1145.                 pointVal1 = 6
  1146.  
  1147.             ElseIf c6 = 7 Then
  1148.                 card6.BackgroundImage = My.Resources._7clubs
  1149.                 pointVal1 = 7
  1150.  
  1151.             ElseIf c6 = 8 Then
  1152.                 card6.BackgroundImage = My.Resources._8clubs
  1153.                 pointVal1 = 8
  1154.  
  1155.             ElseIf c6 = 9 Then
  1156.                 card6.BackgroundImage = My.Resources._9clubs
  1157.                 pointVal1 = 9
  1158.  
  1159.             ElseIf c6 = 10 Then
  1160.                 card6.BackgroundImage = My.Resources._10clubs
  1161.                 pointVal1 = 10
  1162.  
  1163.             ElseIf c6 = 11 Then
  1164.                 card6.BackgroundImage = My.Resources.jackclubs
  1165.                 pointVal1 = 11
  1166.  
  1167.             ElseIf c6 = 12 Then
  1168.                 card6.BackgroundImage = My.Resources.queenclubs
  1169.                 pointVal1 = 12
  1170.  
  1171.             ElseIf c6 = 13 Then
  1172.                 card6.BackgroundImage = My.Resources.kingclubs
  1173.                 pointVal1 = 13
  1174.  
  1175.             ElseIf c6 = 14 Then
  1176.                 card6.BackgroundImage = My.Resources.acespades
  1177.                 pointVal1 = 14
  1178.  
  1179.             ElseIf c6 = 15 Then
  1180.                 card6.BackgroundImage = My.Resources._2spades
  1181.                 pointVal1 = 2
  1182.  
  1183.             ElseIf c6 = 16 Then
  1184.                 card6.BackgroundImage = My.Resources._3spades
  1185.                 pointVal1 = 3
  1186.  
  1187.             ElseIf c6 = 17 Then
  1188.                 card6.BackgroundImage = My.Resources._4spades
  1189.                 pointVal1 = 4
  1190.  
  1191.             ElseIf c6 = 18 Then
  1192.                 card6.BackgroundImage = My.Resources._5spades
  1193.                 pointVal1 = 5
  1194.  
  1195.             ElseIf c6 = 19 Then
  1196.                 card6.BackgroundImage = My.Resources._6spades
  1197.                 pointVal1 = 6
  1198.  
  1199.             ElseIf c6 = 20 Then
  1200.                 card6.BackgroundImage = My.Resources._7spades
  1201.                 pointVal1 = 7
  1202.  
  1203.             ElseIf c6 = 21 Then
  1204.                 card6.BackgroundImage = My.Resources._8spades
  1205.                 pointVal1 = 8
  1206.  
  1207.             ElseIf c6 = 22 Then
  1208.                 card6.BackgroundImage = My.Resources._9spades
  1209.                 pointVal1 = 9
  1210.  
  1211.             ElseIf c6 = 23 Then
  1212.                 card6.BackgroundImage = My.Resources._10spades
  1213.                 pointVal1 = 10
  1214.  
  1215.             ElseIf c6 = 24 Then
  1216.                 card6.BackgroundImage = My.Resources.jackspades
  1217.                 pointVal1 = 11
  1218.  
  1219.             ElseIf c6 = 25 Then
  1220.                 card6.BackgroundImage = My.Resources.queenspades
  1221.                 pointVal1 = 12
  1222.  
  1223.             ElseIf c6 = 26 Then
  1224.                 card6.BackgroundImage = My.Resources.kingspades
  1225.                 pointVal1 = 13
  1226.  
  1227.             ElseIf c6 = 27 Then
  1228.                 card6.BackgroundImage = My.Resources.acediamonds
  1229.                 pointVal1 = 14
  1230.  
  1231.             ElseIf c6 = 28 Then
  1232.                 card6.BackgroundImage = My.Resources._2diamonds
  1233.                 pointVal1 = 2
  1234.  
  1235.             ElseIf c6 = 29 Then
  1236.                 card6.BackgroundImage = My.Resources._3diamonds
  1237.                 pointVal1 = 3
  1238.  
  1239.             ElseIf c6 = 30 Then
  1240.                 card6.BackgroundImage = My.Resources._4diamonds
  1241.                 pointVal1 = 4
  1242.  
  1243.             ElseIf c6 = 31 Then
  1244.                 card6.BackgroundImage = My.Resources._5diamonds
  1245.                 pointVal1 = 5
  1246.  
  1247.             ElseIf c6 = 32 Then
  1248.                 card6.BackgroundImage = My.Resources._6diamonds
  1249.                 pointVal1 = 6
  1250.  
  1251.             ElseIf c6 = 33 Then
  1252.                 card6.BackgroundImage = My.Resources._7diamonds
  1253.                 pointVal1 = 7
  1254.  
  1255.             ElseIf c6 = 34 Then
  1256.                 card6.BackgroundImage = My.Resources._8diamonds
  1257.                 pointVal1 = 8
  1258.  
  1259.             ElseIf c6 = 35 Then
  1260.                 card6.BackgroundImage = My.Resources._9diamonds
  1261.                 pointVal1 = 9
  1262.  
  1263.             ElseIf c6 = 36 Then
  1264.                 card6.BackgroundImage = My.Resources._10diamonds
  1265.                 pointVal1 = 10
  1266.  
  1267.             ElseIf c6 = 37 Then
  1268.                 card6.BackgroundImage = My.Resources.jackdiamonds
  1269.                 pointVal1 = 11
  1270.  
  1271.             ElseIf c6 = 38 Then
  1272.                 card6.BackgroundImage = My.Resources.queendiamonds
  1273.                 pointVal1 = 12
  1274.  
  1275.             ElseIf c6 = 39 Then
  1276.                 card6.BackgroundImage = My.Resources.kingdiamonds
  1277.                 pointVal1 = 13
  1278.  
  1279.             ElseIf c6 = 40 Then
  1280.                 card6.BackgroundImage = My.Resources.acehearts
  1281.                 pointVal1 = 14
  1282.  
  1283.             ElseIf c6 = 41 Then
  1284.                 card6.BackgroundImage = My.Resources._2hearts
  1285.                 pointVal1 = 2
  1286.  
  1287.             ElseIf c6 = 42 Then
  1288.                 card6.BackgroundImage = My.Resources._3hearts
  1289.                 pointVal1 = 3
  1290.  
  1291.             ElseIf c6 = 43 Then
  1292.                 card6.BackgroundImage = My.Resources._4hearts
  1293.                 pointVal1 = 4
  1294.  
  1295.             ElseIf c6 = 44 Then
  1296.                 card6.BackgroundImage = My.Resources._5hearts
  1297.                 pointVal1 = 5
  1298.  
  1299.             ElseIf c6 = 45 Then
  1300.                 card6.BackgroundImage = My.Resources._6hearts
  1301.                 pointVal1 = 6
  1302.  
  1303.             ElseIf c6 = 46 Then
  1304.                 card6.BackgroundImage = My.Resources._7hearts
  1305.                 pointVal1 = 7
  1306.  
  1307.             ElseIf c6 = 47 Then
  1308.                 card6.BackgroundImage = My.Resources._8hearts
  1309.                 pointVal1 = 8
  1310.  
  1311.             ElseIf c6 = 48 Then
  1312.                 card6.BackgroundImage = My.Resources._9hearts
  1313.                 pointVal1 = 9
  1314.  
  1315.             ElseIf c6 = 49 Then
  1316.                 card6.BackgroundImage = My.Resources._10hearts
  1317.                 pointVal1 = 10
  1318.  
  1319.             ElseIf c6 = 50 Then
  1320.                 card6.BackgroundImage = My.Resources.jackclubs
  1321.                 pointVal1 = 11
  1322.  
  1323.             ElseIf c6 = 51 Then
  1324.                 card6.BackgroundImage = My.Resources.queenclubs
  1325.                 pointVal1 = 12
  1326.  
  1327.             ElseIf c6 = 52 Then
  1328.                 card6.BackgroundImage = My.Resources.kingclubs
  1329.                 pointVal1 = 13
  1330.             End If
  1331.  
  1332.  
  1333.             p1Score = p1Score - 4
  1334.             p2Score = p2Score - 4
  1335.  
  1336.             cardValue1 = (Rnd() * 52) + 1
  1337.             cardValue2 = (Rnd() * 52) + 1
  1338.  
  1339.             If pointVal1 > pointVal2 Then
  1340.                 p1Score = p1Score + 10
  1341.             End If
  1342.             If pointVal2 > pointVal1 Then
  1343.                 p2Score = p2Score + 10
  1344.             End If
  1345.             If pointVal2 = pointVal1 Then
  1346.                 Application.Exit()
  1347.             End If
  1348.  
  1349.         End If
  1350.         If c7 = 1 Then
  1351.  
  1352.             card7.BackgroundImage = My.Resources.aceclubs
  1353.             pointVal1 = 14
  1354.  
  1355.         ElseIf c7 = 2 Then
  1356.             card7.BackgroundImage = My.Resources._2clubs
  1357.             pointVal1 = 2
  1358.  
  1359.         ElseIf c7 = 3 Then
  1360.             card7.BackgroundImage = My.Resources._3clubs
  1361.             pointVal1 = 3
  1362.  
  1363.         ElseIf c7 = 4 Then
  1364.             card7.BackgroundImage = My.Resources._4clubs
  1365.             pointVal1 = 4
  1366.  
  1367.         ElseIf c7 = 5 Then
  1368.             card7.BackgroundImage = My.Resources._5clubs
  1369.             pointVal1 = 5
  1370.  
  1371.         ElseIf c7 = 6 Then
  1372.             card7.BackgroundImage = My.Resources._6clubs
  1373.             pointVal1 = 6
  1374.  
  1375.         ElseIf c7 = 7 Then
  1376.             card7.BackgroundImage = My.Resources._7clubs
  1377.             pointVal1 = 7
  1378.  
  1379.         ElseIf c7 = 8 Then
  1380.             card7.BackgroundImage = My.Resources._8clubs
  1381.             pointVal1 = 8
  1382.  
  1383.         ElseIf c7 = 9 Then
  1384.             card7.BackgroundImage = My.Resources._9clubs
  1385.             pointVal1 = 9
  1386.  
  1387.         ElseIf c7 = 10 Then
  1388.             card7.BackgroundImage = My.Resources._10clubs
  1389.             pointVal1 = 10
  1390.  
  1391.         ElseIf c7 = 11 Then
  1392.             card7.BackgroundImage = My.Resources.jackclubs
  1393.             pointVal1 = 11
  1394.  
  1395.         ElseIf c7 = 12 Then
  1396.             card7.BackgroundImage = My.Resources.queenclubs
  1397.             pointVal1 = 12
  1398.  
  1399.         ElseIf c7 = 13 Then
  1400.             card7.BackgroundImage = My.Resources.kingclubs
  1401.             pointVal1 = 13
  1402.  
  1403.         ElseIf c7 = 14 Then
  1404.             card7.BackgroundImage = My.Resources.acespades
  1405.             pointVal1 = 14
  1406.  
  1407.         ElseIf c7 = 15 Then
  1408.             card7.BackgroundImage = My.Resources._2spades
  1409.             pointVal1 = 2
  1410.  
  1411.         ElseIf c7 = 16 Then
  1412.             card7.BackgroundImage = My.Resources._3spades
  1413.             pointVal1 = 3
  1414.  
  1415.         ElseIf c7 = 17 Then
  1416.             card7.BackgroundImage = My.Resources._4spades
  1417.             pointVal1 = 4
  1418.  
  1419.         ElseIf c7 = 18 Then
  1420.             card7.BackgroundImage = My.Resources._5spades
  1421.             pointVal1 = 5
  1422.  
  1423.         ElseIf c7 = 19 Then
  1424.             card7.BackgroundImage = My.Resources._6spades
  1425.             pointVal1 = 6
  1426.  
  1427.         ElseIf c7 = 20 Then
  1428.             card7.BackgroundImage = My.Resources._7spades
  1429.             pointVal1 = 7
  1430.  
  1431.         ElseIf c7 = 21 Then
  1432.             card7.BackgroundImage = My.Resources._8spades
  1433.             pointVal1 = 8
  1434.  
  1435.         ElseIf c7 = 22 Then
  1436.             card7.BackgroundImage = My.Resources._9spades
  1437.             pointVal1 = 9
  1438.  
  1439.         ElseIf c7 = 23 Then
  1440.             card7.BackgroundImage = My.Resources._10spades
  1441.             pointVal1 = 10
  1442.  
  1443.         ElseIf c7 = 24 Then
  1444.             card7.BackgroundImage = My.Resources.jackspades
  1445.             pointVal1 = 11
  1446.  
  1447.         ElseIf c7 = 25 Then
  1448.             card7.BackgroundImage = My.Resources.queenspades
  1449.             pointVal1 = 12
  1450.  
  1451.         ElseIf c7 = 26 Then
  1452.             card7.BackgroundImage = My.Resources.kingspades
  1453.             pointVal1 = 13
  1454.  
  1455.         ElseIf c7 = 27 Then
  1456.             card7.BackgroundImage = My.Resources.acediamonds
  1457.             pointVal1 = 14
  1458.  
  1459.         ElseIf c7 = 28 Then
  1460.             card7.BackgroundImage = My.Resources._2diamonds
  1461.             pointVal1 = 2
  1462.  
  1463.         ElseIf c7 = 29 Then
  1464.             card7.BackgroundImage = My.Resources._3diamonds
  1465.             pointVal1 = 3
  1466.  
  1467.         ElseIf c7 = 30 Then
  1468.             card7.BackgroundImage = My.Resources._4diamonds
  1469.             pointVal1 = 4
  1470.  
  1471.         ElseIf c7 = 31 Then
  1472.             card7.BackgroundImage = My.Resources._5diamonds
  1473.             pointVal1 = 5
  1474.  
  1475.         ElseIf c7 = 32 Then
  1476.             card7.BackgroundImage = My.Resources._6diamonds
  1477.             pointVal1 = 6
  1478.  
  1479.         ElseIf c7 = 33 Then
  1480.             card7.BackgroundImage = My.Resources._7diamonds
  1481.             pointVal1 = 7
  1482.  
  1483.         ElseIf c7 = 34 Then
  1484.             card7.BackgroundImage = My.Resources._8diamonds
  1485.             pointVal1 = 8
  1486.  
  1487.         ElseIf c7 = 35 Then
  1488.             card7.BackgroundImage = My.Resources._9diamonds
  1489.             pointVal1 = 9
  1490.  
  1491.         ElseIf c7 = 36 Then
  1492.             card7.BackgroundImage = My.Resources._10diamonds
  1493.             pointVal1 = 10
  1494.  
  1495.         ElseIf c7 = 37 Then
  1496.             card7.BackgroundImage = My.Resources.jackdiamonds
  1497.             pointVal1 = 11
  1498.  
  1499.         ElseIf c7 = 38 Then
  1500.             card7.BackgroundImage = My.Resources.queendiamonds
  1501.             pointVal1 = 12
  1502.  
  1503.         ElseIf c7 = 39 Then
  1504.             card7.BackgroundImage = My.Resources.kingdiamonds
  1505.             pointVal1 = 13
  1506.  
  1507.         ElseIf c7 = 40 Then
  1508.             card7.BackgroundImage = My.Resources.acehearts
  1509.             pointVal1 = 14
  1510.  
  1511.         ElseIf c7 = 41 Then
  1512.             card7.BackgroundImage = My.Resources._2hearts
  1513.             pointVal1 = 2
  1514.  
  1515.         ElseIf c7 = 42 Then
  1516.             card7.BackgroundImage = My.Resources._3hearts
  1517.             pointVal1 = 3
  1518.  
  1519.         ElseIf c7 = 43 Then
  1520.             card7.BackgroundImage = My.Resources._4hearts
  1521.             pointVal1 = 4
  1522.  
  1523.         ElseIf c7 = 44 Then
  1524.             card7.BackgroundImage = My.Resources._5hearts
  1525.             pointVal1 = 5
  1526.  
  1527.         ElseIf c7 = 45 Then
  1528.             card7.BackgroundImage = My.Resources._6hearts
  1529.             pointVal1 = 6
  1530.  
  1531.         ElseIf c7 = 46 Then
  1532.             card7.BackgroundImage = My.Resources._7hearts
  1533.             pointVal1 = 7
  1534.  
  1535.         ElseIf c7 = 47 Then
  1536.             card7.BackgroundImage = My.Resources._8hearts
  1537.             pointVal1 = 8
  1538.  
  1539.         ElseIf c7 = 48 Then
  1540.             card7.BackgroundImage = My.Resources._9hearts
  1541.             pointVal1 = 9
  1542.  
  1543.         ElseIf c7 = 49 Then
  1544.             card7.BackgroundImage = My.Resources._10hearts
  1545.             pointVal1 = 10
  1546.  
  1547.         ElseIf c7 = 50 Then
  1548.             card7.BackgroundImage = My.Resources.jackclubs
  1549.             pointVal1 = 11
  1550.  
  1551.         ElseIf c7 = 51 Then
  1552.             card7.BackgroundImage = My.Resources.queenclubs
  1553.             pointVal1 = 12
  1554.  
  1555.         ElseIf c7 = 52 Then
  1556.             card7.BackgroundImage = My.Resources.kingclubs
  1557.             pointVal1 = 13
  1558.         End If
  1559.  
  1560.  
  1561.         If c8 = 1 Then
  1562.  
  1563.             card8.BackgroundImage = My.Resources.aceclubs
  1564.             pointVal1 = 14
  1565.  
  1566.         ElseIf c8 = 2 Then
  1567.             card8.BackgroundImage = My.Resources._2clubs
  1568.             pointVal1 = 2
  1569.  
  1570.         ElseIf c8 = 3 Then
  1571.             card8.BackgroundImage = My.Resources._3clubs
  1572.             pointVal1 = 3
  1573.  
  1574.         ElseIf c8 = 4 Then
  1575.             card8.BackgroundImage = My.Resources._4clubs
  1576.             pointVal1 = 4
  1577.  
  1578.         ElseIf c8 = 5 Then
  1579.             card8.BackgroundImage = My.Resources._5clubs
  1580.             pointVal1 = 5
  1581.  
  1582.         ElseIf c8 = 6 Then
  1583.             card8.BackgroundImage = My.Resources._6clubs
  1584.             pointVal1 = 6
  1585.  
  1586.         ElseIf c8 = 7 Then
  1587.             card8.BackgroundImage = My.Resources._7clubs
  1588.             pointVal1 = 7
  1589.  
  1590.         ElseIf c8 = 8 Then
  1591.             card8.BackgroundImage = My.Resources._8clubs
  1592.             pointVal1 = 8
  1593.  
  1594.         ElseIf c8 = 9 Then
  1595.             card8.BackgroundImage = My.Resources._9clubs
  1596.             pointVal1 = 9
  1597.  
  1598.         ElseIf c8 = 10 Then
  1599.             card8.BackgroundImage = My.Resources._10clubs
  1600.             pointVal1 = 10
  1601.  
  1602.         ElseIf c8 = 11 Then
  1603.             card8.BackgroundImage = My.Resources.jackclubs
  1604.             pointVal1 = 11
  1605.  
  1606.         ElseIf c8 = 12 Then
  1607.             card8.BackgroundImage = My.Resources.queenclubs
  1608.             pointVal1 = 12
  1609.  
  1610.         ElseIf c8 = 13 Then
  1611.             card8.BackgroundImage = My.Resources.kingclubs
  1612.             pointVal1 = 13
  1613.  
  1614.         ElseIf c8 = 14 Then
  1615.             card8.BackgroundImage = My.Resources.acespades
  1616.             pointVal1 = 14
  1617.  
  1618.         ElseIf c8 = 15 Then
  1619.             card8.BackgroundImage = My.Resources._2spades
  1620.             pointVal1 = 2
  1621.  
  1622.         ElseIf c8 = 16 Then
  1623.             card8.BackgroundImage = My.Resources._3spades
  1624.             pointVal1 = 3
  1625.  
  1626.         ElseIf c8 = 17 Then
  1627.             card8.BackgroundImage = My.Resources._4spades
  1628.             pointVal1 = 4
  1629.  
  1630.         ElseIf c8 = 18 Then
  1631.             card8.BackgroundImage = My.Resources._5spades
  1632.             pointVal1 = 5
  1633.  
  1634.         ElseIf c8 = 19 Then
  1635.             card8.BackgroundImage = My.Resources._6spades
  1636.             pointVal1 = 6
  1637.  
  1638.         ElseIf c8 = 20 Then
  1639.             card8.BackgroundImage = My.Resources._7spades
  1640.             pointVal1 = 7
  1641.  
  1642.         ElseIf c8 = 21 Then
  1643.             card8.BackgroundImage = My.Resources._8spades
  1644.             pointVal1 = 8
  1645.  
  1646.         ElseIf c8 = 22 Then
  1647.             card8.BackgroundImage = My.Resources._9spades
  1648.             pointVal1 = 9
  1649.  
  1650.         ElseIf c8 = 23 Then
  1651.             card8.BackgroundImage = My.Resources._10spades
  1652.             pointVal1 = 10
  1653.  
  1654.         ElseIf c8 = 24 Then
  1655.             card8.BackgroundImage = My.Resources.jackspades
  1656.             pointVal1 = 11
  1657.  
  1658.         ElseIf c8 = 25 Then
  1659.             card8.BackgroundImage = My.Resources.queenspades
  1660.             pointVal1 = 12
  1661.  
  1662.         ElseIf c8 = 26 Then
  1663.             card8.BackgroundImage = My.Resources.kingspades
  1664.             pointVal1 = 13
  1665.  
  1666.         ElseIf c8 = 27 Then
  1667.             card8.BackgroundImage = My.Resources.acediamonds
  1668.             pointVal1 = 14
  1669.  
  1670.         ElseIf c8 = 28 Then
  1671.             card8.BackgroundImage = My.Resources._2diamonds
  1672.             pointVal1 = 2
  1673.  
  1674.         ElseIf c8 = 29 Then
  1675.             card8.BackgroundImage = My.Resources._3diamonds
  1676.             pointVal1 = 3
  1677.  
  1678.         ElseIf c8 = 30 Then
  1679.             card8.BackgroundImage = My.Resources._4diamonds
  1680.             pointVal1 = 4
  1681.  
  1682.         ElseIf c8 = 31 Then
  1683.             card8.BackgroundImage = My.Resources._5diamonds
  1684.             pointVal1 = 5
  1685.  
  1686.         ElseIf c8 = 32 Then
  1687.             card8.BackgroundImage = My.Resources._6diamonds
  1688.             pointVal1 = 6
  1689.  
  1690.         ElseIf c8 = 33 Then
  1691.             card8.BackgroundImage = My.Resources._7diamonds
  1692.             pointVal1 = 7
  1693.  
  1694.         ElseIf c8 = 34 Then
  1695.             card8.BackgroundImage = My.Resources._8diamonds
  1696.             pointVal1 = 8
  1697.  
  1698.         ElseIf c8 = 35 Then
  1699.             card8.BackgroundImage = My.Resources._9diamonds
  1700.             pointVal1 = 9
  1701.  
  1702.         ElseIf c8 = 36 Then
  1703.             card8.BackgroundImage = My.Resources._10diamonds
  1704.             pointVal1 = 10
  1705.  
  1706.         ElseIf c8 = 37 Then
  1707.             card8.BackgroundImage = My.Resources.jackdiamonds
  1708.             pointVal1 = 11
  1709.  
  1710.         ElseIf c8 = 38 Then
  1711.             card8.BackgroundImage = My.Resources.queendiamonds
  1712.             pointVal1 = 12
  1713.  
  1714.         ElseIf c8 = 39 Then
  1715.             card8.BackgroundImage = My.Resources.kingdiamonds
  1716.             pointVal1 = 13
  1717.  
  1718.         ElseIf c8 = 40 Then
  1719.             card8.BackgroundImage = My.Resources.acehearts
  1720.             pointVal1 = 14
  1721.  
  1722.         ElseIf c8 = 41 Then
  1723.             card8.BackgroundImage = My.Resources._2hearts
  1724.             pointVal1 = 2
  1725.  
  1726.         ElseIf c8 = 42 Then
  1727.             card8.BackgroundImage = My.Resources._3hearts
  1728.             pointVal1 = 3
  1729.  
  1730.         ElseIf c8 = 43 Then
  1731.             card8.BackgroundImage = My.Resources._4hearts
  1732.             pointVal1 = 4
  1733.  
  1734.         ElseIf c8 = 44 Then
  1735.             card8.BackgroundImage = My.Resources._5hearts
  1736.             pointVal1 = 5
  1737.  
  1738.         ElseIf c8 = 45 Then
  1739.             card8.BackgroundImage = My.Resources._6hearts
  1740.             pointVal1 = 6
  1741.  
  1742.         ElseIf c8 = 46 Then
  1743.             card8.BackgroundImage = My.Resources._7hearts
  1744.             pointVal1 = 7
  1745.  
  1746.         ElseIf c8 = 47 Then
  1747.             card8.BackgroundImage = My.Resources._8hearts
  1748.             pointVal1 = 8
  1749.  
  1750.         ElseIf c8 = 48 Then
  1751.             card8.BackgroundImage = My.Resources._9hearts
  1752.             pointVal1 = 9
  1753.  
  1754.         ElseIf c8 = 49 Then
  1755.             card8.BackgroundImage = My.Resources._10hearts
  1756.             pointVal1 = 10
  1757.  
  1758.         ElseIf c8 = 50 Then
  1759.             card8.BackgroundImage = My.Resources.jackclubs
  1760.             pointVal1 = 11
  1761.  
  1762.         ElseIf c8 = 51 Then
  1763.             card8.BackgroundImage = My.Resources.queenclubs
  1764.             pointVal1 = 12
  1765.  
  1766.         ElseIf c8 = 52 Then
  1767.             card8.BackgroundImage = My.Resources.kingclubs
  1768.             pointVal1 = 13
  1769.         End If
  1770.  
  1771.  
  1772.         If c9 = 1 Then
  1773.  
  1774.             card9.BackgroundImage = My.Resources.aceclubs
  1775.             pointVal1 = 14
  1776.  
  1777.         ElseIf c9 = 2 Then
  1778.             card9.BackgroundImage = My.Resources._2clubs
  1779.             pointVal1 = 2
  1780.  
  1781.         ElseIf c9 = 3 Then
  1782.             card9.BackgroundImage = My.Resources._3clubs
  1783.             pointVal1 = 3
  1784.  
  1785.         ElseIf c9 = 4 Then
  1786.             card9.BackgroundImage = My.Resources._4clubs
  1787.             pointVal1 = 4
  1788.  
  1789.         ElseIf c9 = 5 Then
  1790.             card9.BackgroundImage = My.Resources._5clubs
  1791.             pointVal1 = 5
  1792.  
  1793.         ElseIf c9 = 6 Then
  1794.             card9.BackgroundImage = My.Resources._6clubs
  1795.             pointVal1 = 6
  1796.  
  1797.         ElseIf c9 = 7 Then
  1798.             card9.BackgroundImage = My.Resources._7clubs
  1799.             pointVal1 = 7
  1800.  
  1801.         ElseIf c9 = 8 Then
  1802.             card9.BackgroundImage = My.Resources._8clubs
  1803.             pointVal1 = 8
  1804.  
  1805.         ElseIf c9 = 9 Then
  1806.             card9.BackgroundImage = My.Resources._9clubs
  1807.             pointVal1 = 9
  1808.  
  1809.         ElseIf c9 = 10 Then
  1810.             card9.BackgroundImage = My.Resources._10clubs
  1811.             pointVal1 = 10
  1812.  
  1813.         ElseIf c9 = 11 Then
  1814.             card9.BackgroundImage = My.Resources.jackclubs
  1815.             pointVal1 = 11
  1816.  
  1817.         ElseIf c9 = 12 Then
  1818.             card9.BackgroundImage = My.Resources.queenclubs
  1819.             pointVal1 = 12
  1820.  
  1821.         ElseIf c9 = 13 Then
  1822.             card9.BackgroundImage = My.Resources.kingclubs
  1823.             pointVal1 = 13
  1824.  
  1825.         ElseIf c9 = 14 Then
  1826.             card9.BackgroundImage = My.Resources.acespades
  1827.             pointVal1 = 14
  1828.  
  1829.         ElseIf c9 = 15 Then
  1830.             card9.BackgroundImage = My.Resources._2spades
  1831.             pointVal1 = 2
  1832.  
  1833.         ElseIf c9 = 16 Then
  1834.             card9.BackgroundImage = My.Resources._3spades
  1835.             pointVal1 = 3
  1836.  
  1837.         ElseIf c9 = 17 Then
  1838.             card9.BackgroundImage = My.Resources._4spades
  1839.             pointVal1 = 4
  1840.  
  1841.         ElseIf c9 = 18 Then
  1842.             card9.BackgroundImage = My.Resources._5spades
  1843.             pointVal1 = 5
  1844.  
  1845.         ElseIf c9 = 19 Then
  1846.             card9.BackgroundImage = My.Resources._6spades
  1847.             pointVal1 = 6
  1848.  
  1849.         ElseIf c9 = 20 Then
  1850.             card9.BackgroundImage = My.Resources._7spades
  1851.             pointVal1 = 7
  1852.  
  1853.         ElseIf c9 = 21 Then
  1854.             card9.BackgroundImage = My.Resources._8spades
  1855.             pointVal1 = 8
  1856.  
  1857.         ElseIf c9 = 22 Then
  1858.             card9.BackgroundImage = My.Resources._9spades
  1859.             pointVal1 = 9
  1860.  
  1861.         ElseIf c9 = 23 Then
  1862.             card9.BackgroundImage = My.Resources._10spades
  1863.             pointVal1 = 10
  1864.  
  1865.         ElseIf c9 = 24 Then
  1866.             card9.BackgroundImage = My.Resources.jackspades
  1867.             pointVal1 = 11
  1868.  
  1869.         ElseIf c9 = 25 Then
  1870.             card9.BackgroundImage = My.Resources.queenspades
  1871.             pointVal1 = 12
  1872.  
  1873.         ElseIf c9 = 26 Then
  1874.             card9.BackgroundImage = My.Resources.kingspades
  1875.             pointVal1 = 13
  1876.  
  1877.         ElseIf c9 = 27 Then
  1878.             card9.BackgroundImage = My.Resources.acediamonds
  1879.             pointVal1 = 14
  1880.  
  1881.         ElseIf c9 = 28 Then
  1882.             card9.BackgroundImage = My.Resources._2diamonds
  1883.             pointVal1 = 2
  1884.  
  1885.         ElseIf c9 = 29 Then
  1886.             card9.BackgroundImage = My.Resources._3diamonds
  1887.             pointVal1 = 3
  1888.  
  1889.         ElseIf c9 = 30 Then
  1890.             card9.BackgroundImage = My.Resources._4diamonds
  1891.             pointVal1 = 4
  1892.  
  1893.         ElseIf c9 = 31 Then
  1894.             card9.BackgroundImage = My.Resources._5diamonds
  1895.             pointVal1 = 5
  1896.  
  1897.         ElseIf c9 = 32 Then
  1898.             card9.BackgroundImage = My.Resources._6diamonds
  1899.             pointVal1 = 6
  1900.  
  1901.         ElseIf c9 = 33 Then
  1902.             card9.BackgroundImage = My.Resources._7diamonds
  1903.             pointVal1 = 7
  1904.  
  1905.         ElseIf c9 = 34 Then
  1906.             card9.BackgroundImage = My.Resources._8diamonds
  1907.             pointVal1 = 8
  1908.  
  1909.         ElseIf c9 = 35 Then
  1910.             card9.BackgroundImage = My.Resources._9diamonds
  1911.             pointVal1 = 9
  1912.  
  1913.         ElseIf c9 = 36 Then
  1914.             card9.BackgroundImage = My.Resources._10diamonds
  1915.             pointVal1 = 10
  1916.  
  1917.         ElseIf c9 = 37 Then
  1918.             card9.BackgroundImage = My.Resources.jackdiamonds
  1919.             pointVal1 = 11
  1920.  
  1921.         ElseIf c9 = 38 Then
  1922.             card9.BackgroundImage = My.Resources.queendiamonds
  1923.             pointVal1 = 12
  1924.  
  1925.         ElseIf c9 = 39 Then
  1926.             card9.BackgroundImage = My.Resources.kingdiamonds
  1927.             pointVal1 = 13
  1928.  
  1929.         ElseIf c9 = 40 Then
  1930.             card9.BackgroundImage = My.Resources.acehearts
  1931.             pointVal1 = 14
  1932.  
  1933.         ElseIf c9 = 41 Then
  1934.             card9.BackgroundImage = My.Resources._2hearts
  1935.             pointVal1 = 2
  1936.  
  1937.         ElseIf c9 = 42 Then
  1938.             card9.BackgroundImage = My.Resources._3hearts
  1939.             pointVal1 = 3
  1940.  
  1941.         ElseIf c9 = 43 Then
  1942.             card9.BackgroundImage = My.Resources._4hearts
  1943.             pointVal1 = 4
  1944.  
  1945.         ElseIf c9 = 44 Then
  1946.             card9.BackgroundImage = My.Resources._5hearts
  1947.             pointVal1 = 5
  1948.  
  1949.         ElseIf c9 = 45 Then
  1950.             card9.BackgroundImage = My.Resources._6hearts
  1951.             pointVal1 = 6
  1952.  
  1953.         ElseIf c9 = 46 Then
  1954.             card9.BackgroundImage = My.Resources._7hearts
  1955.             pointVal1 = 7
  1956.  
  1957.         ElseIf c9 = 47 Then
  1958.             card9.BackgroundImage = My.Resources._8hearts
  1959.             pointVal1 = 8
  1960.  
  1961.         ElseIf c9 = 48 Then
  1962.             card9.BackgroundImage = My.Resources._9hearts
  1963.             pointVal1 = 9
  1964.  
  1965.         ElseIf c9 = 49 Then
  1966.             card9.BackgroundImage = My.Resources._10hearts
  1967.             pointVal1 = 10
  1968.  
  1969.         ElseIf c9 = 50 Then
  1970.             card9.BackgroundImage = My.Resources.jackclubs
  1971.             pointVal1 = 11
  1972.  
  1973.         ElseIf c9 = 51 Then
  1974.             card9.BackgroundImage = My.Resources.queenclubs
  1975.             pointVal1 = 12
  1976.  
  1977.         ElseIf c9 = 52 Then
  1978.             card9.BackgroundImage = My.Resources.kingclubs
  1979.             pointVal1 = 13
  1980.         End If
  1981.  
  1982.  
  1983.         If c10 = 1 Then
  1984.  
  1985.             card10.BackgroundImage = My.Resources.aceclubs
  1986.             pointVal1 = 14
  1987.  
  1988.         ElseIf c10 = 2 Then
  1989.             card10.BackgroundImage = My.Resources._2clubs
  1990.             pointVal1 = 2
  1991.  
  1992.         ElseIf c10 = 3 Then
  1993.             card10.BackgroundImage = My.Resources._3clubs
  1994.             pointVal1 = 3
  1995.  
  1996.         ElseIf c10 = 4 Then
  1997.             card10.BackgroundImage = My.Resources._4clubs
  1998.             pointVal1 = 4
  1999.  
  2000.         ElseIf c10 = 5 Then
  2001.             card10.BackgroundImage = My.Resources._5clubs
  2002.             pointVal1 = 5
  2003.  
  2004.         ElseIf c10 = 6 Then
  2005.             card10.BackgroundImage = My.Resources._6clubs
  2006.             pointVal1 = 6
  2007.  
  2008.         ElseIf c10 = 7 Then
  2009.             card10.BackgroundImage = My.Resources._7clubs
  2010.             pointVal1 = 7
  2011.  
  2012.         ElseIf c10 = 8 Then
  2013.             card10.BackgroundImage = My.Resources._8clubs
  2014.             pointVal1 = 8
  2015.  
  2016.         ElseIf c10 = 9 Then
  2017.             card10.BackgroundImage = My.Resources._9clubs
  2018.             pointVal1 = 9
  2019.  
  2020.         ElseIf c10 = 10 Then
  2021.             card10.BackgroundImage = My.Resources._10clubs
  2022.             pointVal1 = 10
  2023.  
  2024.         ElseIf c10 = 11 Then
  2025.             card10.BackgroundImage = My.Resources.jackclubs
  2026.             pointVal1 = 11
  2027.  
  2028.         ElseIf c10 = 12 Then
  2029.             card10.BackgroundImage = My.Resources.queenclubs
  2030.             pointVal1 = 12
  2031.  
  2032.         ElseIf c10 = 13 Then
  2033.             card10.BackgroundImage = My.Resources.kingclubs
  2034.             pointVal1 = 13
  2035.  
  2036.         ElseIf c10 = 14 Then
  2037.             card10.BackgroundImage = My.Resources.acespades
  2038.             pointVal1 = 14
  2039.  
  2040.         ElseIf c10 = 15 Then
  2041.             card10.BackgroundImage = My.Resources._2spades
  2042.             pointVal1 = 2
  2043.  
  2044.         ElseIf c10 = 16 Then
  2045.             card10.BackgroundImage = My.Resources._3spades
  2046.             pointVal1 = 3
  2047.  
  2048.         ElseIf c10 = 17 Then
  2049.             card10.BackgroundImage = My.Resources._4spades
  2050.             pointVal1 = 4
  2051.  
  2052.         ElseIf c10 = 18 Then
  2053.             card10.BackgroundImage = My.Resources._5spades
  2054.             pointVal1 = 5
  2055.  
  2056.         ElseIf c10 = 19 Then
  2057.             card10.BackgroundImage = My.Resources._6spades
  2058.             pointVal1 = 6
  2059.  
  2060.         ElseIf c10 = 20 Then
  2061.             card10.BackgroundImage = My.Resources._7spades
  2062.             pointVal1 = 7
  2063.  
  2064.         ElseIf c10 = 21 Then
  2065.             card10.BackgroundImage = My.Resources._8spades
  2066.             pointVal1 = 8
  2067.  
  2068.         ElseIf c10 = 22 Then
  2069.             card10.BackgroundImage = My.Resources._9spades
  2070.             pointVal1 = 9
  2071.  
  2072.         ElseIf c10 = 23 Then
  2073.             card10.BackgroundImage = My.Resources._10spades
  2074.             pointVal1 = 10
  2075.  
  2076.         ElseIf c10 = 24 Then
  2077.             card10.BackgroundImage = My.Resources.jackspades
  2078.             pointVal1 = 11
  2079.  
  2080.         ElseIf c10 = 25 Then
  2081.             card10.BackgroundImage = My.Resources.queenspades
  2082.             pointVal1 = 12
  2083.  
  2084.         ElseIf c10 = 26 Then
  2085.             card10.BackgroundImage = My.Resources.kingspades
  2086.             pointVal1 = 13
  2087.  
  2088.         ElseIf c10 = 27 Then
  2089.             card10.BackgroundImage = My.Resources.acediamonds
  2090.             pointVal1 = 14
  2091.  
  2092.         ElseIf c10 = 28 Then
  2093.             card10.BackgroundImage = My.Resources._2diamonds
  2094.             pointVal1 = 2
  2095.  
  2096.         ElseIf c10 = 29 Then
  2097.             card10.BackgroundImage = My.Resources._3diamonds
  2098.             pointVal1 = 3
  2099.  
  2100.         ElseIf c10 = 30 Then
  2101.             card10.BackgroundImage = My.Resources._4diamonds
  2102.             pointVal1 = 4
  2103.         ElseIf c10 = 31 Then
  2104.             card10.BackgroundImage = My.Resources._5diamonds
  2105.             pointVal1 = 5
  2106.  
  2107.         ElseIf c10 = 32 Then
  2108.             card10.BackgroundImage = My.Resources._6diamonds
  2109.             pointVal1 = 6
  2110.  
  2111.         ElseIf c10 = 33 Then
  2112.             card10.BackgroundImage = My.Resources._7diamonds
  2113.             pointVal1 = 7
  2114.  
  2115.         ElseIf c10 = 34 Then
  2116.             card10.BackgroundImage = My.Resources._8diamonds
  2117.             pointVal1 = 8
  2118.  
  2119.         ElseIf c10 = 35 Then
  2120.             card10.BackgroundImage = My.Resources._9diamonds
  2121.             pointVal1 = 9
  2122.  
  2123.         ElseIf c10 = 36 Then
  2124.             card10.BackgroundImage = My.Resources._10diamonds
  2125.             pointVal1 = 10
  2126.  
  2127.         ElseIf c10 = 37 Then
  2128.             card10.BackgroundImage = My.Resources.jackdiamonds
  2129.             pointVal1 = 11
  2130.  
  2131.         ElseIf c10 = 38 Then
  2132.             card10.BackgroundImage = My.Resources.queendiamonds
  2133.             pointVal1 = 12
  2134.  
  2135.         ElseIf c10 = 39 Then
  2136.             card10.BackgroundImage = My.Resources.kingdiamonds
  2137.             pointVal1 = 13
  2138.  
  2139.         ElseIf c10 = 40 Then
  2140.             card10.BackgroundImage = My.Resources.acehearts
  2141.             pointVal1 = 14
  2142.  
  2143.         ElseIf c10 = 41 Then
  2144.             card10.BackgroundImage = My.Resources._2hearts
  2145.             pointVal1 = 2
  2146.  
  2147.         ElseIf c10 = 42 Then
  2148.             card10.BackgroundImage = My.Resources._3hearts
  2149.             pointVal1 = 3
  2150.  
  2151.         ElseIf c10 = 43 Then
  2152.             card10.BackgroundImage = My.Resources._4hearts
  2153.             pointVal1 = 4
  2154.  
  2155.         ElseIf c10 = 44 Then
  2156.             card10.BackgroundImage = My.Resources._5hearts
  2157.             pointVal1 = 5
  2158.  
  2159.         ElseIf c10 = 45 Then
  2160.             card10.BackgroundImage = My.Resources._6hearts
  2161.             pointVal1 = 6
  2162.  
  2163.         ElseIf c10 = 46 Then
  2164.             card10.BackgroundImage = My.Resources._7hearts
  2165.             pointVal1 = 7
  2166.  
  2167.         ElseIf c10 = 47 Then
  2168.             card10.BackgroundImage = My.Resources._8hearts
  2169.             pointVal1 = 8
  2170.  
  2171.         ElseIf c10 = 48 Then
  2172.             card10.BackgroundImage = My.Resources._9hearts
  2173.             pointVal1 = 9
  2174.  
  2175.         ElseIf c10 = 49 Then
  2176.             card10.BackgroundImage = My.Resources._10hearts
  2177.             pointVal1 = 10
  2178.  
  2179.         ElseIf c10 = 50 Then
  2180.             card10.BackgroundImage = My.Resources.jackclubs
  2181.             pointVal1 = 11
  2182.  
  2183.         ElseIf c10 = 51 Then
  2184.             card10.BackgroundImage = My.Resources.queenclubs
  2185.             pointVal1 = 12
  2186.  
  2187.         ElseIf c10 = 52 Then
  2188.             card10.BackgroundImage = My.Resources.kingclubs
  2189.             pointVal1 = 13
  2190.         End If
  2191.  
  2192.         If pointvalx < pointvaly Then
  2193.             p1Score = p1Score + 10
  2194.         End If
  2195.  
  2196.         If pointvalx < pointvaly Then
  2197.             p2Score = p2Score + 10
  2198.         End If
  2199.  
  2200.  
  2201.         ' this is continued for 52 cards --> for player 1 and then recreated for player 2...
  2202.  
  2203.         If p1Score <= 0 Then
  2204.                     Application.Exit()
  2205.                 End If
  2206.                 If p2Score <= 0 Then
  2207.                     Application.Exit()
  2208.                 End If
  2209.  
  2210.  
  2211.  
  2212.  
  2213.     End Sub
  2214.  
  2215.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  2216.         ' lblP1Val.Text = p1Score
  2217.        ' lblP2Val.Text = p2Score
  2218.    End Sub
  2219.  
  2220.     Private Sub Label5_Click(sender As Object, e As EventArgs) Handles Label5.Click
  2221.  
  2222.     End Sub
  2223. End Class
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top