Operador Is

Testa se duas variáveis Basic se referem à mesma instância do objeto.

result = oObj1 Is oObj2

Se oObj1 e oObj2 são referências para a mesma instância de objeto, o resultado será True.

O exemplo abaixo primeiramente define um novo tipo chamado Student. Chamar TestObjects cria o objeto oStudent1 como uma instância desse tipo.

A atribuição oStudent2 = oStudent1 copia a referência para o mesmo objeto. Assim, o resultado da aplicação do operador Is será True.

    Type Student
        FirstName as String
        Program as String
    End Type
    
    Sub TestObjects
        Dim oStudent1 as new Student
        Dim oStudent2 as Variant
        oStudent2 = oStudent1
        MsgBox Student1 Is Student2 ' True
    End Sub
  

O exemplo abaixo retorna False porque oStudent1 e oStudent2 são referências para dois objetos distintos, cada um criado separadamente com o operador New.

    Sub TestObjects_v2
        Dim oStudent1 as new Student
        Dim oStudent2 as new Student
        MsgBox oStudent1 Is oStudent2 ' False
    End Sub