首先需要支持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