playing cards game (make Random 4 groups of Numbers in Main Group)

The trick is here: "Random extraction of 5 cards from a deck"[^] (C++ code, sorry).

In your case, it should work this:

Initalization

• Assign an array this way: c(0)=1, c(1)=2, .., c(51)=52.

then

• pick a random number between 0 and 51 (included) say r.
• swap c(r) with c(51)..

The first card assigned to player 1, is c(51).

then

• pick a random number (r) between 0 and 50 (included).
• swap c(r) with c(50).

The second card assigned to player 1 is c(50).

and so on...

It probably is irrelevant for a game, but OriginalGriff's Solution 1 is doing a lot of extra work (moving the list contents above the removed element at each iteration). Using an array instead of a list the Fisher-Yates shuffle[^] can be done in O(n) using the "inside-out" version.

private const int cardsCount = 52;
private Random rand = new Random();
private static int[] deck = Enumerable.Range(1, cardsCount).ToArray();

private static int[] Shuffle(int[] deck)
{
  int[] shuffled = new int[deck.Length];
  shuffled[0] = deck[0];
  for (int i = 1; i < deck.Length; i++)
  {
    int j = rand.Next(i + 1);
    if (j != i)
      shuffled[i] = shuffled[j];
    shuffled[j] = deck[i];
  }
  return shuffled;
}

Use like:

int[] shuffled = Shuffle(deck);

=============
Edit: 2016-14-6 MTH
This is a bit old, but it's worth noting:
If avoiding bias in the resultant "shuffles" is important, pay particular attention to the Fisher-Yates shuffle: Potential sources of bias in the Wikipedia article.
(For example, to have the possibility of producing all possible shufflings of a 52 card deck the pseudo random number generator must have at least 226 bits of internal state!)

Thank you Matt T Heffron , I use .Net 2.0 and have error and when I use .Net 3.5 I solve the error.
but it I have 3 list box .
I use VB.net
How I can fill them with 13 card for each list ? in other words how I can use it ?

I use this code :

Private shuffled(cardsCount - 1) As Integer
   Private deck() As Integer
   Private Const cardsCount As Integer = 52
   Private rand As New Random()
   Public Function Shuffle(ByVal deck() As Integer) As Integer()
       On Error Resume Next
       shuffled(0) = deck(0)
       For i As Integer = 1 To deck.Length - 1
           Dim j As Integer = rand.Next(i + 1)    '[edit by Matt] changed parameter value
           If j <> i Then
               shuffled(i) = shuffled(j)
           End If
           shuffled(j) = deck(i)
       Next i
       Return shuffled

   End Function
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       Shuffle(deck)
       ListBox1.Items.AddRange(shuffled)
   End Sub

But I have problem in ListBox1.Items.AddRange(shuffled)

Now How I can fill ListBox1 with cards ?
I also try this

ListBox1.Items.Clear()
      Dim j As Integer
      Dim lst As ListBox
      For i As Integer = 1 To 52
          j = rand.Next(1, 53)
          lst.Items.Add(i)
          ListBox1.Items.Add(j)
      Next i

but I have a problem! the function reiterate some numbers (like I have 3 number with value 17)