请参阅

comclassinfo( )
createobject( )
define class
set oleobject