VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "AddInClass"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit

Public thisInstance As VBIDE.Application
Dim numDialog As Integer

Public Sub AfterClick()
    numDialog = numDialog + 1
    ' This With statement is changing the
    ' properties of a VBIDE.FormTemplate
    With thisInstance.ActiveProject.AddFormTemplate
        .Properties("BackColor") = &H800080
        .Properties("BorderStyle") = 1
        .Properties("Caption") = "About Add-In Examples"
        .Properties("ControlBox") = False
        .Properties("Height") = 2500
        .Properties("Left") = 1000
        .Properties("Name") = "AboutFrm" + Right(Str(numDialog), 1)
        .Properties("MaxButton") = False
        .Properties("MinButton") = False
        .Properties("Top") = 1000
        .Properties("Width") = 5000

        ' This With statement is changing the
        ' properties of a VBIDE.ControlTemplate
        With .ControlTemplates.Add("CommandButton")
            .Properties("Caption") = "&OK"
            .Properties("Left") = 2000
            .Properties("Width") = 1000
            .Properties("Top") = 1320
        End With

        With .ControlTemplates.Add("Label")
            .Properties("BackColor") = &H800080
            .Properties("Caption") = "Copyright 1995, SAMS"
            .Properties("ForeColor") = &H80FFFF
            .Properties("Left") = 1550
            .Properties("Height") = 250
            .Properties("Width") = 1700
            .Properties("Top") = 850
        End With

        With .ControlTemplates.Add("Label")
            .Properties("Alignment") = 2 ' center
            .Properties("BackColor") = &H800080
            .Properties("Caption") = "AddIn Examples 3 - Version 1.0"
            .Properties("ForeColor") = &H80FFFF
            .Properties("Height") = 250
            .Properties("Left") = 250
            .Properties("Width") = 4500
            .Properties("Top") = 250
        End With
    End With
End Sub

