Distribution de carte en VB

Bonjour !
je dois réaliser un jeu de carte (le trou du cul..).
En fonction du nombre de joueur (2-4) les 52 cartes doivent être distribuées aléatoirement parmis les joueurs..
Qqun pourrait-il m'aider à le faire ? voir même si qqun a des codes sources, je suis preneur ! :)
Merci d'avance !!!

Lol super le nom du jeu j'aurais pas trouvé mieu...

Pour ton tris c'est assez simple tu crée d'abord ta collection de carte :

Dim Deck As New Collection

puis tu ajoute toute les cartes imaginon 52 :

Dim i as long
For i= 1 to 52
Deck.Add i
next

puis tu crée ta fonction de distribution :

Dim Joueur(2) as new collection
Dim j as long
Dim k as long

Do while Deck.count
For j = 1 to (1+Ubound(Joueur))
'tire une carte au hazard
k = int(rnd * Deck.Count)
'donne la carte
Joueur(j).Add Deck(k)
'enleve la carte du sabot
Deck.remove k
'passe au joueur suivant
next
loop

@+

E.B.

Ce n'est moi qui ai inventé ce nom !!! :-)
C'est un jeu assez répandu d'ailleurs ^^
En tout cas merci pour ta réponse mais tu auras surement encore de mes nouvelles d'ici peu, en espérant que ça ne t'embetera pas trop..
@+