Shael

 Public Function shuffle(ByVal pNum As Integer, ByVal pPool As Integer) As Integer()
        Dim rnd As New Random()
        Dim rand1 As Integer
        Dim rand2 As Integer
        Dim tmp As Integer
        '回傳牌
        Dim Cards(pNum - 1) As Integer

        '取得順序的牌組(包含0)
        Dim Decks(pPool) As Integer
        For i As Integer = 0 To pPool - 1
            Decks(i) = i
        Next

        '洗牌(牌組多少張就洗張數*100幾次)
        For i = 0 To (pPool - 1) * 100
            rand1 = rnd.Next(0, Decks.Length - 1)
            rand2 = rnd.Next(0, Decks.Length - 1)
            tmp = Decks(rand1)
            Decks(rand1) = Decks(rand2)
            Decks(rand2) = tmp
        Next

        '取牌
        For i = 0 To pNum - 1
            Cards(i) = Decks(i)
        Next
        Return Cards
    End Function