CreateInstance Method, TransactionContext Object Example

[This product will work only on Windows NT 4.0 versions and earlier. For Windows 2000 and later, see COM+ (Component Services).]

Dim objTxCtx As TransactionContext
Dim objMyObject As MyCompany.MyObject

' Get TransactionContext.
Set objTxCtx = _
    CreateObject("TxCtx.TransactionContext")

' Create an instance of MyObject.
Set objMyObject= _
    objTxCtx.CreateInstance("MyCompany.MyObject")