I've a made a Texas Hold'em game but am having a little trouble. I have it dealing random cards from the deck, however I'm not sure how to stop it from dealing the same card twice.
(Here's what I have. s1, s2, s3 are the card images)

Code:
 Dim x As Integer
        Dim card(52) As Object
        Dim x, y, z As Integer
        Randomize()

card(0) = My.Resources.s1
card(1) = My.Resources.s2
card(2) = My.Resources.s3
card(3) = My.Resources.s4
card(4) = My.Resources.s5

 For x = 0 To 51 * Rnd() Step 1
            piccard1.Image = card(x)
        Next
        For y = 0 To 51 * Rnd() Step 2
            piccard2.Image = card(y)
        Next
        For z = 0 To 51 * Rnd() Step 3
            picflop1.Image = card(z)
        Next
Like I said, this works but it will deal the same card. Although I like having pocket aces, I perfer they not be the same suit.
I'm sure it's something simple, but I'm fairly new to VB. Any input would be appreciated.


[Code tags added by moderator]