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