[vb6] funzione generica per distruzione oggetti

[afrappe]

ho degli array di oggetti di tipo "PowerPoint.slide" , "PowerPoint,shape", "PowerPoint.xxx"

ho scritto una sub generica per la distruzione di tali array

Private Sub distruggiVettore(ByRef objVettore As Object)
    Dim index As Integer
    For index = 0 To UBound(objVettore)
        Set objVettore(index) = Nothing
    Next
End Sub

come vedete il parametro da passare è di tipo "object" mentre quello che io passo è di tipo formalmente diverso(diciamo piu specializzato), ma cmq sono oggetti,
l'errore che mi da è del tipo: "byref argoment type mistmach"


ora mi chiedo pure non essendo il vb un linguaggio propriamente ad oggetti, non si riesce a far trattare un oggetto come uno derivato da un tipo base?o sto dicendo cavolate?