Сообщение от Malone32®

Строю прогу (сменщик обоев для рабочего стола) на VB. Делаю так, чтобы при щелчке на Command1 в Image1 в случайном порядке (rnd) загружалось по одному изображению из List1. Но вот что я замечаю: при каждом запуске проги и щелчке на Command1 почему-то загружаются одни и те же изображения и в той же самой последовательности, а мне надо чтобы с каждым разом загружались РАЗНЫЕ..... Что я не так сделал??

Private Sub Command1_Click()
Image1.Picture = LoadPicture(File1.Path & "\" & File1.List(Int(File1.ListCount * Rnd)))

End Sub

Private Sub Form_Load()
File1.Path = "F:\Docs\Pictures\Women"
End Sub