COMAddIns Property Example

This example returns the number of add-ins available to Microsoft FrontPage.

Private Sub GetCOMAddIns()
Dim myWeb As Web
Dim myAddinCount As Integer

Set myWeb = ActiveWeb
myAddinCount = Application.COMAddIns.Count

End Sub