Shuffling a Deck of cards?

[Dayo312]

Hi

could someone help me to do this...

I Have a string var. Array with 60 different Places to hold info (It's a Type called Deck .. Ie... Deck1.Card1 = "Ace"


How Can I tell it to switch Those Randomly with out alot of fuss.. (You know shuffle the deck) maybe with a api somehow..

Thankyou all..

Evan

[MartinLiss]

This is not a complete answer to your problem, and most likely there is a better way to do even this, but the following will result in MyCollection containing a set of 60 non-repeating numbers from 1 to 60. Dim nTry As Integer
Dim nAddCount As Integer
Dim bFound As Integer
Dim nDummy As Integer

Dim MyCollection As New Collection

Randomize

Do Until nAddCount = 60
nTry = Int((60 - 1 + 1) * Rnd + 1)
On Error Resume Next
nDummy = MyCollection.Item(CStr(nTry))
bFound = (Err = 0)
If bFound Then
Err.Clear
Else
MyCollection.Add nTry, CStr(nTry)
nAddCount = nAddCount + 1
End If
Loop


------------------
Marty