filelist and listbox order randomization

Does ANYBODY know how to do this at ALL?????? I am taking selections from filelist and a listbox and adding them to a listbox that will be made invisible and randomized, THEN outputed to a file. Any1 need more specs? Ideas & suggestions would be nice, as well as answers.

-deadBird

Does this fit your needs?

Code:

---

Function randomnumber(finished)
Randomize
randomnumber = Int((Val(finished) * Rnd) + 1)
End Function

Usage:

Private Sub Command1_Click()
file1.ListIndex = randomnumber(file1.ListCount)
Open "MyFile" For Output As #1
Print #1, file1
Close #1
End Sub

---

Thats it!? Man I hate you.....

(well, no not really!)

I spent a month trying to figure it out. I never made my own functions before. Thankyou VERY MUCH!!!

-deadBird