Activate Method Example

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

Implements ObjectControl
Dim context As ObjectContext
Option Explicit

Private Sub ObjectControl_Activate()
    ' Get a reference to the object's context here,
    ' so it can be used by any method that may be 
    ' called during this activation of the object.
    Set context = GetObjectContext()
End Sub