Come faccio a mescolare e distribuire le carte una alla volta ai giocatori?

Questo è quello che ho ottenuto finora e mi trovo bloccato. = /

Private Sub Dealbtn_Click(sender As Object, e As EventArgs) Handles Dealbtn.Click Dim Suits() As String = {"S", "D", "C", "H"} Dim Faces() As String = {"2", "3", "4", "5", "6", "7", "8", "9", "T", "J", "Q", "K", "A"} Dim rand As New Random Dim rand1 As Integer = rand.Next(12) Dim rand2 As Integer = rand.Next(3) Label2.Text() = Faces(rand1) + Suits(rand2) End Sub