[VB6] array di oggetti

[afrappe]

'istanzio l'applicazione
    Set objApplication = New PowerPoint.Application
    objApplication.Visible = True

    'aggiungo una slide
    Set objPresentation = objApplication.Presentations.Add
    Set objSlide = objPresentation.Slides.Add(1, ppLayoutBlank)

    'variabili di appoggio
    Dim ciccio As PowerPoint.Shape  'stampino da quale ricavero gli altri shape 'alla fine lo rendo invisibile
    Set ciccio = objSlide.Shapes.AddPicture(App.Path & "\graficiPowerPoint\apparato.gif", True, True, 10, 10, 71, 57)

'vettore di oggetti
Dim vAppPartenza() As PowerPoint.Shape
Dim i As Integer



'ciclo
do while rsRecordset.EOF = false

  i = i + 1
  ReDim Preserve vAppPartenza(i) As PowerPoint.Shape
  Set vAppPartenza(i) = ciccio.Duplicate  '<--- qui da errore di type mistmacth


'continua
....
..
..

dove tento di assegnare un oggetto shape al nuovo elemento del vettore mi da errore di type Mistmacth
dove sbaglio?

[MMarzia]

linguaggio/versione anche nel titolo..

[afrappe]

azz sorry [VB6]

[xegallo]

ma

Set vAppPartenza(i) = ciccio.Duplicate  '<--- qui da errore di type mistmacth

il metodo dublicate restituisce un oggetto PowerPoint.Shape ?

[afrappe]

questo è quanto dice l'MSDN

Metodo Duplicate:

Oggetto Shape: crea un duplicato dell'oggetto Shape specificato, aggiunge la nuova forma all'insieme Shapes subito dopo la forma specificata in origine, quindi restituisce il nuovo oggetto Shape.

in realta se vado a vere con la funzione TypeName sembra un'object generico, bhooo