[RESOLVED] Random Images

[Georgle]

Need help with random this images.
How to place random image (0 to 8 control array) to picturebox (0 to 8 control array)?

I tried this code, but not working perfectly

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 8
Picture1(i).Picture = Image1(Rnd * 8).Picture
Next i
End Sub

Thanks..

[Edgemeal]

Picture1(i).Picture = Image1(Int(Rnd * 9)).Picture

If you want non-repeating random number so each image is only copied once maybe try something like this...

Private Sub Form_Load()
    Randomize
End Sub

Private Sub Command1_Click()
    Dim ByteCheck() As Byte, MyNum As Integer, Counter As Integer
    Const MaxNum = 9 ' 0 to 8
    ReDim ByteCheck(MaxNum)
    
    While Counter < MaxNum
        MyNum = Int(Rnd * MaxNum)
        If ByteCheck(MyNum) = 0 Then
            Picture1(Counter).Picture = Image1(MyNum).Picture
            ByteCheck(MyNum) = 1
            Counter = Counter + 1
        End If
    Wend

End Sub

[Georgle]

Many thanks Edgemeal..
It works now..