[vb6] Dupliquer une picturebox

Bonjour,
Je voudrais automatiser la copie d'une picturebox pour afficher la zone de déplacement d'un personnage.
Mais je ne sais pas vraiment comment m'y prendre. j'ai essayé ça :

Private Sub Rouge_Click()
Dim Deplace As Object
For j = 1 To 3
Set Deplace(j) = Deplace(0)
Main.Controls.Add Deplace(j)
Place Deplace(j), Rouge.Left / CaseX + 1 + j, Rouge.Top / CaseY
Deplace(j).Visible = True
Next
End Sub

Deplace(0) est l'image origine.
Place est la fonction qui permet de placer les images sur la grille du jeu.
L'erreur m'indique variable objet ou bloc with non défini.
Help please