با سلام و سپاس خدمت کاربران سایت یاهو ۹۸ YAHOO

امروز براتون قطعه کدی کاربردی مهیا کرده ایم که امیدوارم مفید واقع گردد

تابع:

Sub ShuffleList(pl As List) As List
  For i = pl.Size - 1 To 0 Step -1
    Dim j As Int
        Dim k As Object
    j = Rnd(0, i + 1)
    k = pl.Get(j)
    pl.Set(j,pl.Get(i))
    pl.Set(i,k)
  Next
    Return pl
End Sub

استفاده:

list1=ShuffleList(list1)