
React to Font-Changed Events
Use WithEvents to perform an action when you change any font properties of a specific control or form. Make sure you set the OLE Automation reference in the References dialog: ‘ Declaration sectionPrivate WithEvents fntAny As StdFontPrivate Sub fntAny_FontChanged(ByVal _ PropertyName As String) Select Case PropertyName Case “Name” ‘ Perform