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