VERSION 1.0 CLASS BEGIN MultiUse = -1 'True END Attribute VB_Name = "ItemFontScale" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Option Explicit Public lineSpacing_ As Double Public fontMultiplier_ As Double Public textSize_ As Double Public spacing_ As Double Public fontFactor_ As Double Private Sub Class_Initialize() lineSpacing_ = -1 fontMultiplier_ = 1 textSize_ = 11 spacing_ = 1 fontFactor_ = 1.15 End Sub