Comment puis-je vérifier qu'un objet est Nothing dans VB6?

Question

Dans mon application VB6, j'ai un tableau d'objets déclarés ainsi ...

Dim MyArray() as MyClass

Ce tableau est rempli au fur et à mesure du traitement

Set MyArray(element) = passed_object

et comme les éléments ne sont plus recherchés,

Set MyArray(otherelement) = Nothing

Lors de l'utilisation du tableau, je veux utiliser une boucle comme

For i = 1 To Ubound(MyArray)
    If MyArray(i) <> Nothing Then    ' Doesn't compile
        ...do something...
    End If
Next i

Mais je ne peux rien obtenir qui puisse être compilé. J'ai aussi essayé

If MyArray(i) Is Not Nothing Then

Devrais-je faire cela, et si oui, quel test devrais-je mettre ici?

Answer 1

If Not MyArray(i) Is Nothing Then

Answer 2

If Not MyArray(i) Is Nothing Then

Answer 3

Au lieu de 

IsNothing(<object here>)

cela devrait fonctionner dans VB6:

<object here> Is Nothing

Answer 4

    Private Function IsNothing(objParm As Object) As Boolean
        IsNothing = IIf(objParm Is Nothing, True, False)
    End Function