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..