'Class module
Sub Class_Globals
Dim Label As Label
Dim TextSizeHandler As TextSizeHandler_Class
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize(InitializeLabel As Label)
TextSizeHandler.Initialize
Label = InitializeLabel
End Sub
Sub getText As String
Return Label.Text
End Sub
Sub setText(t As String)
Label.Text = t
If TextSizeHandler.ReturnTrueIfTextSizeIsTooBigForLabel(Label) Then
Label.TextSize = TextSizeHandler.ReturnMaximumSizeofTextToFitLabel(Label, False, 80)
End If
End Sub