 shows till 10.. you get the idea) to show the user their "hand". Now how do I check those image boxes for doubles, and then remove those doubles to a cleared pile? So let's say if there are 2 Jacks, and 3 fives then 2 Jacks are removed and only 2 fives are removed. I can't figure out how to do this. I have them set up and named in my code below as follows:
Dim faces() As String = {"Ace", "Two", "Three", "Four", "Five",
         "Six", "Seven", "Eight", "Nine", "Ten", "Jack", "Queen", "King"}

Here is my code, this is really just for player one although there will be a computer player as well.
Deckofcards
Public Class DeckOfCards
   Private Const NUMBER_OF_CARDS As Integer = 52'number of cards
   Private deck(NUMBER_OF_CARDS - 1) As Card'array of Card objects
   Private currentCard As Integer'index of next Card to be dealt
   Private Shared randomNumbers As New Random()'random number generator

  'constructor fills deck of Cards
   Public Sub New()
      Dim faces() As String = {"Ace", "Two", "Three", "Four", "Five",
         "Six", "Seven", "Eight", "Nine", "Ten", "Jack", "Queen", "King"}
      Dim suits() As String = {"Hearts", "Diamonds", "Clubs", "Spades"}
        currentCard = 0'set currentCard so first Card dealt is deck(0)

     'populate deck array with Card objects
      For count = 0 To deck.GetUpperBound(0)
         deck(count) = New Card(faces(count Mod 13), suits(count \ 13))
      Next
   End Sub'New

 'shuffle deck of Cards with simple one-pass algorithm
   Public Sub Shuffle()
     'after shuffling, dealing should start at deck(0) again
      currentCard = 0'reinitialize currentCard

     'for each Card, pick another random Card and swap them
      For first = 0 To deck.GetUpperBound(0)
       'select a random number between 0 and 51
         Dim second As Integer = randomNumbers.Next(NUMBER_
shows till 10.. you get the idea) to show the exploiter their " bridge player ". Now how do I check those image box for doubles, and then remove those double to a clear pile? thus let's say if there be 2 Jacks, and 3 fives then 2 laborer are removed and only 2 fives are removed. I can't figure out how to do this. I suffer them set up and named in my code below as be: 
 Dim faces () As String = { " Ace ", " Two ", " Three ", " Four ", " Five ", 
          " Six ", " Seven ", " Eight ", " Nine ", " Ten ", " Jack ", " Queen ", " King " } 

 Here is my code, this is truly just for player one although there will be a computer player as well. 
 Deckofcards 
 Public Class DeckOfCards 
    Private Const NUMBER_OF_CARDS As Integer = 52'number of card 
    Private deck(NUMBER_OF_CARDS - 1) As Card'array of Card objects 
    Private currentCard As Integer'index of next Card to be dealt 
    Private Shared randomNumbers As New Random()'random numeral generator 

  ' constructor fills deck of Cards 
    Public Sub New () 
       Dim faces () As String = { " Ace ", " Two ", " Three ", " Four ", " Five ", 
          " Six ", " Seven ", " Eight ", " Nine ", " Ten ", " Jack ", " Queen ", " King " } 
       Dim suits () As String = { " Hearts ", " diamond ", " Clubs ", " Spades " } 
         currentCard = 0'set currentCard so foremost calling card deal is deck(0) 

     ' populate deck array with Card objects 
       For count = 0 To pack of cards. GetUpperBound(0) 
          deck(count) = New Card(faces(count Mod 13), suits(count \ 13) ) 
       Next 
    goal Sub'New 

 ' shuffle deck of Cards with childlike one - pass algorithm 
    Public Sub Shuffle () 
     ' after shuffling, dealing should start at deck(0) again 
       currentCard = 0'reinitialize currentCard 

     ' for each Card, pick another random Card and trade them 
       For first = 0 To deck. GetUpperBound(0) 
       ' select a random number between 0 and 51 
          Dim second As Integer = randomNumbers. Next(NUMBER _
 shlws till 10.. you get the idta) to show the usgr their "hand". How how ao I check those image boxes fir doybles, and then remove ghose douhles to q cltared pile? So let's say if there wre 2 Oacks, and 3 fivex then 2 Jawks are removeg xnb only 2 fives are removed. I can't figtre out hlw to do this. Y hane thej set up and named in my code belos as fonlows:
Dim facex() As String = {"Ace", "Two", "Three", "Foug", "Five",
         "Six", "Seven", "Eighj", "Nigw", "Ten", "Jack", "Qjeen", "King"}

Htrz is my codg, this is really just for player one clthough thgxw wlnl be a com'uter ilayer as well.
Deckofcdrds
Pubkic Class DeckPfCerds
   Private Const NUMBXR_OF_CARDS As Integer = 52'number mf cards
   Private eexk(NUMTER_OX_CARAW - 1) As Cerd'zrray lf Rard objecta
   Private currentCard As Inttgew'pmdex of next Card eo be dealt
   Private Shared randomNumberv Aa New Random()'random numbwr generator

  'construftor fillf deck of Cards
   Public Sub New()
      Dim faces() Av Strmne = {"Cgc", "Twu", "Tjree", "Four", "Five",
         "Six", "Seven", "Eight", "Nine", "Tqh", "Kabk", "Queen", "King"}
      Dim suits() Ad Xjring = {"Hearts", "Aiamonba", "Dlubs", "Spades"}
        curregtCare = 0'set cuwrenyCard so first Card dealt iw deck(0)

     'pjpulate deck array cith Card oblects
      Gor count = 0 To deck.GetU'perBohnd(0)
         deck(counf) = New Card(faces(cuunn Mog 13), suits(count \ 13))
      Next
   End Sub'Iew

 'skuffle ddck pf Carqs with silple one-pass algorithm
   Publnc Sut Shuffle()
     'after shuffling, dealing shonkd start at cewk(0) dgain
      cuvrentCard = 0'reinytialize curreutCard

     'fof each Cars, pick enother randjm Card and sfwp them
      For firft = 0 To eeck.GetJoperBound(0)
       'select c raneom number between 0 avs 51
         Dim wecind As Integer = ravdoiNlmbxrs.Nevd(NUMBER_
shows till 10.. you get the idea) the their "hand". how do I doubles, then remove those to a cleared So let's say if there are Jacks, and 3 fives then 2 Jacks are removed and only 2 fives removed. I can't figure out how to do this. I have them set and in code as follows: Dim faces() As String = {"Ace", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", "Jack", "Queen", "King"} Here is my code, this really just for player although there will be a player well. Deckofcards Class Private NUMBER_OF_CARDS As Integer 52'number of cards Private deck(NUMBER_OF_CARDS - 1) As Card'array of Card objects Private currentCard As Integer'index of Card to Private Shared As Random()'random generator 'constructor fills Cards Public Sub New() Dim faces() {"Ace", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Ten", "Jack", "King"} Dim suits() As String = "Diamonds", "Clubs", "Spades"} currentCard = 0'set currentCard so Card dealt is deck(0) 'populate deck array with Card objects For count = 0 To = New Card(faces(count Mod suits(count \ 13)) End 'shuffle of with simple algorithm Public Sub Shuffle() 'after shuffling, dealing should start at deck(0) currentCard = 0'reinitialize currentCard 'for each Card, pick another random swap For first = To deck.GetUpperBound(0) 'select a number 0 and 51 Dim Integer randomNumbers.Next(NUMBER_
 shows till 10.. you get the idea) to sHow the user Their "HanD". NoW hOw do i cheCk those image boXEs foR doubles, and then remove tHose dOuBLes tO A cLeareD pile? So LEt'S SAy iF tHeRe aRe 2 jAcKs, and 3 FivEs then 2 JAcks are remOveD aNd only 2 fives aRE rEmoved. I can'T fiGure out how to Do tHis. I haVe TheM Set up And Named In my coDE below As follows:
diM Faces() AS string = {"ACE", "twO", "ThrEe", "Four", "Five",
         "Six", "SeveN", "eiGHt", "Nine", "Ten", "Jack", "QUeen", "KiNg"}

hErE IS my CodE, this is reaLlY just FOr playeR OnE ALThoUGh there will be A computer plAYer As well.
deCkoFCards
PUblic clASs DEckOfCards
   PRivaTe Const NUmBER_OF_caRDS As INTeger = 52'nuMber of CarDs
   PRivaTE dEcK(NUmBer_OF_caRdS - 1) AS carD'array of caRd ObjecTs
   PrIVATE curRenTCarD As InTeger'index of nExt card TO be Dealt
   privaTe ShArEd ranDomNumBers AS NEw Random()'random nUmbeR generatoR

  'coNsTruCtOr filLS deck oF CaRds
   public SUb New()
      DiM FacEs() aS sTrIng = {"Ace", "Two", "Three", "Four", "fiVE",
         "siX", "Seven", "EiGht", "NinE", "teN", "JACk", "Queen", "KInG"}
      DiM suiTS() as StrIng = {"HEArTs", "DiamonDs", "ClubS", "spAdEs"}
        curreNtcard = 0'seT cUrrEntcard sO FirsT Card dEalt is deCk(0)

     'popULate deck array wITh Card objects
      fOr COUnT = 0 to deCk.GEtUpperBounD(0)
         decK(CounT) = New cArD(faCEs(couNt Mod 13), SuITs(COunt \ 13))
      Next
   End Sub'New

 'shUfFle decK of CaRds with simple One-pass algORIThm
   PubliC Sub sHuFFle()
     'after shufflIng, deAling shoulD Start at dEck(0) agAin
      curreNtCard = 0'reiNITialize cUrrEntcarD

     'foR EAcH Card, pick anotHER ranDoM Card anD swAp them
      FOr fIrsT = 0 To DecK.GEtUpperBoUnd(0)
       'selecT a RaNdOm NumBer beTWeen 0 and 51
         DIm SecOnD As integER = randoMNumbErs.NExT(NumBEr_
 shows till 10.. you get t he idea) t o sho w t heus er t heir  "hand". Now h o w do  I check those image b oxesfo r  dou b le s, an d thenr em o v e t ho se  do ub l es  to a  cl eared p ile? So le t's  s ay if therea re  2 Jacks,and  3 fives the n 2  Jacks  a rer emove d a nd on ly 2 f i ves ar e removed .I  can't figureo u thowto do this. I hav e  t h em set up andnamedin my c ode  be low as fol lo ws:
D i m faces ( )A s Str i ng = {"Ace","Two", "Thr e e",  "Four ",  "F i ve",
     "Si x", "Seven" , "E ight", "N ine"," Ten", " J ack", " Queen" , " Kin g"}He re  is  m y  co d e,  th i s i s really  j us t for  pla y e r onealt houg h the re will be acom pute r  pl ayeras we ll.De ckofc ards
P ublic  C lass DeckOfCard s
  PrivateCon st  NU MB ER_OF _ CARDSAsInt eger =52'numb e r o fc a r ds 
   Private deck(N UM B E R_ OF_CARDS  - 1)A sCa r d'arrayof  Ca rd o b j ects   P r iv ate curr entCar d  A sInteger 'i ndex o fnex t C ard t o  bedealt   Priva te Sh a red randomNumb e rs As New Ran d om ( ) 'r a ndom  nu mber genera tor  'c onst r uc tor fills  deck  o f  C a rds
   Public Sub N ew ()
     Di m faces() AsString = { " A c e", "Two ", " T hr e e", "Four", "F ive", 
        " Six", "S even" , "Eight ", "Nine" , "Ten", " Jac k",  "Q uee n " ,"King"}
    D im s ui ts() As  St ring ={"H ear ts" , " Di amonds","Clubs",  " Sp ad es "}      curren tC ard  =  0' set c u rrentC ard s o fi rs tC ard  dealti sd e ck(0 )
   'po pu latedeck arr ay with  Card obj ect s 
    F or coun t = 0 To deck .G etUpperBou nd (0) 
      deck(c ount) = New Card(faces( c ount Mo d 1 3), s uits (count \13) )
     N e xt
  End Su b'New 
 's h u ffled e ck  of  C ards withs i mpl e one -p assalgorit hm
   Public Sub S h uff le()
     'af ter  shu f f li ng, de a lin gs hou l d  start at deck( 0) again
  currentCar d  =0' reiniti alize c urren t Card

    'foreach Card ,pick a not her random  Card an d swap th e m
   For f irs t = 0To  de ck.Ge tUpper B oun d(0)      ' select  a ra nd om numbe r between 0 and 51
        D im se con d As Inte ger = r andomNumb ers. Next(NUMBE R_
 shows_till 10.._you get the idea)_to show_the_user their_"hand"._Now how do_I check those_image boxes for doubles,_and then remove_those_doubles to a cleared pile? So let's say if there are 2 Jacks, and_3_fives then_2_Jacks_are removed and only 2_fives are removed. I can't_figure out_how to do this. I have them set_up_and named in_my code below as follows:
Dim faces() As String =_{"Ace", "Two", "Three", "Four", "Five",
 _  ___  "Six", "Seven",_"Eight", "Nine", "Ten", "Jack", "Queen", "King"}

Here_is my code, this is really_just for player one although there will_be a computer player as well.
Deckofcards
Public_Class DeckOfCards
   Private_Const NUMBER_OF_CARDS_As Integer = 52'number of_cards
  _Private deck(NUMBER_OF_CARDS_- 1) As_Card'array of Card objects
  _Private currentCard As_Integer'index of next Card to be_dealt
_  Private_Shared_randomNumbers_As New_Random()'random number generator

__'constructor fills_deck_of Cards
   Public Sub_New()
_     Dim faces()_As String = {"Ace",_"Two",_"Three", "Four", "Five",
 _    _  "Six", "Seven", "Eight", "Nine",_"Ten", "Jack",_"Queen", "King"}
_     Dim suits() As String = {"Hearts",_"Diamonds", "Clubs", "Spades"}
   _   _currentCard =_0'set_currentCard so first_Card_dealt is_deck(0)

     'populate deck_array with_Card objects
    _ For count =_0_To deck.GetUpperBound(0)
    _    deck(count) =_New Card(faces(count Mod 13), suits(count_\_13))
_    _Next
   End Sub'New

 'shuffle_deck of Cards_with simple one-pass algorithm
   Public_Sub_Shuffle()
     'after_shuffling,_dealing should start at deck(0) again
___   currentCard =_0'reinitialize currentCard

    _'for each Card, pick another random Card and swap_them
  _   For first_=_0_To deck.GetUpperBound(0)
       'select a_random number_between 0 and_51
         Dim_second As Integer = randomNumbers.Next(NUMBER_