Visual Basic - Ayuda

Hola, necesito que los shape no desaparezcan, es decir, que si aparece el 2º no desaparezca el 1º ¿se entiende?
No sé lo que le pasa. ¿Alguien me puede dar una pista?
Ah! ¿Por qué me da el error '340'?
///////////////////////
Dim X
Dim Y
Dim rojo
Dim verde
Dim azul
Private Sub Form_Load()
For objetos = 1 To 20
Load Shape1(objetos)
Next objetos
End Sub
Private Sub Timer1_Timer()
Dim objetos As Integer
rojo = 255 * Rnd
verde = 255 * Rnd
azul = 255 * Rnd
Form1.BackColor = RGB(rojo, verde, azul)
objetos = Int(20 * Rnd + 10)
X = Int(Form1.Width * Rnd + 1)
Y = Int(Form1.Height * Rnd + 1)
Shape1(objetos).Shape = Int(6 * Rnd)
Shape1(objetos).BackColor = QBColor(Int(15 * Rnd))
Shape1(objetos).DrawMode = Int(3 * Rnd + 1)
Shape1(objetos).Move X, Y
Shape1(objetos).Top = Rnd * 5
Shape1(objetos).Visible = True
End Sub