Activate Method Example

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