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

        AssignerCarte(2)
        AssignerCarte(3)
        AssignerCarte(4)
        AssignerCarte(5)
    End Sub
    Private Sub AssignerCarte(ByVal index As Integer)
        Dim rand As New Random
        Dim nbr_rand As Integer

        Randomize()
        nbr_rand = rand.Next(0, 52) + 1
        If VerifierDoublon(nbr_rand) = True Then
            If index = 1 Then
                PTBCarte1.Image = imgCartes.Images(nbr_rand)
                Return
            End If
            If index = 2 Then
                PTBCarte2.Image = imgCartes.Images(nbr_rand)
                Return
            End If
            If index = 3 Then
                PTBCarte3.Image = imgCartes.Images(nbr_rand)
                Return
            End If
            If index = 4 Then
                PTBCarte4.Image = imgCartes.Images(nbr_rand)
                Return
            End If
            If index = 5 Then
                PTBCarte5.Image = imgCartes.Images(nbr_rand)
                Return
            End If
        End If



    End Sub
    Private Function VerifierDoublon(ByRef nbr_rand) As Boolean
        Dim tab_doublons(52) As Boolean
        If (tab_doublons(nbr_rand)) Then
            Return False
        Else
            tab_doublons(nbr_rand) = True
            Return True
        End If

    End Function