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