Poker

Jeg skal lave et spil poker (VB 6.0) og har lavet følgende kode, som blander 52 numre (=kort) og gemmer numrene - uden at der er flere af ens slags...
::::::::::::::: gammel kode :::::::::::::::
(general start)
Dim kort(51) As Integer
Dim kortnr As Integer
Dim I As Integer
(genetal slut)

Private Sub Command1_Click()

kortnr = 0

Do Until kortnr = 51
    Randomize
    kort(kortnr) = (Int(Rnd * 52))
    For I = 0 To kortnr - 1
        If kort(kortnr) = kort(I) Then
            kortnr = kortnr - 1
            Exit For
        End If
    Next
    kortnr = kortnr + 1
Loop

Label1(0).Caption = kort(0)
Label1(1).Caption = kort(1) 'osv. for de 52 kort

End Sub

::::::::::::::::::::::::::::::::::::::::::

Men jeg vil gerne have lavet et bedre system.. Jeg kunne forestille med et system som blander kortene som:
H(12) 'Hjerter 0-12
R(12) 'Runder 0-12
K(12) 'Klør 0-12
S(12) 'Spar 0-12
(Altså 52 kort i alt, men kortenes farve gemmes også i "bunken")

Derved vil det være lettere for mig at give point osv...