Este fórum está sendo desativado

[Wilker12]

Olá,
Se a função retorna a propriedade do objeto da 1ª forma, como fazer pra ela também retornar da 2ª:
1ª forma:

Código: Selecionar todos

Function ValorDoCheckBox()
    ValorDoCheckBox = OLEObjects("CheckBox1").Object.Value
End Function
MsgBox ValorDoCheckBox 

2ª forma:

Código: Selecionar todos

Function ValorDoCheckBox()
    ValorDoCheckBox = OLEObjects("CheckBox1").Object
End Function
MsgBox ValorDoCheckBox.Value

Grato!

[mprudencio]

Check box nao sao apenas true ou false?

Usa um if.

[Wilker12]

O exemplo foi genérico. Mas, já me deram a solução:

Código: Selecionar todos

Function ValueOfCheckBox() as Object    
    Set ValueOfCheckBox = OLEObjects("CheckBox1").Object
End Function
MsgBox ValueOfCheckBox.Value

Grato.