 Boolean ֵָʽǷЧ Automation 

IsObject(expression)
expression ʽ

˵
 expression  Object ͱûԶĶ IsObject  True False

ʾ IsObject ʶǷ

Dim MyInt, MyCheck, MyObject
Set MyObject = Me 
MyCheck = IsObject(MyObject)   '  True
MyCheck = IsObject(MyInt)   '  False
Ҫ
汾 1
