首先需要支持GetObject(),
这在 http://topic.csdn.net/u/20080827/13/01b722a7-de68-46b8-a0c6-8d551a194e8f.html 中已经解决了。
其次,你的问题看下面就明白了- VB code
-
- dim
- f
- as
- object
- ,bIsFirstCreate
- as
- boolean
- on
- error
- resume
- next
- set
- f
- =
- getobject
- (...)
- on
- error
- goto
- 0
- if
- f
- is
- nothing
- then
- set
- f
- =
- createobject
- (...) bIsFirstCreate
- =
- True
- end
- if