Access.2007.VBA.Bibl..

Constants for characters surrounding ProgID

Const PROG_ID_START As String = “!<”

Const PROG_ID_END As String = “>”

Private Sub IDTExtensibility2_OnAddInsUpdate(custom() _

As Variant)

On Error GoTo ErrorHandler

‘No code needed, but must have the event stub

ErrorHandlerExit:

Exit Sub

ErrorHandler:

AddInErr Err

Resume ErrorHandlerExit

End Sub

Private Sub IDTExtensibility2_OnBeginShutdown(custom() _

As Variant)

On Error GoTo ErrorHandler

‘No code needed, but must have the event stub

ErrorHandlerExit:

Exit Sub

ErrorHandler:

AddInErr Err

Resume ErrorHandlerExit

End Sub

Private Sub IDTExtensibility2_OnConnection(ByVal _

Application As Object, ByVal ConnectMode _

As AddInDesignerObjects.ext_ConnectMode, _

ByVal AddInInst As Object, custom() As Variant)

Creating COM Add-ins with Visual Basic 6 13