AnnAutomation Property Example for Access 2.0

Note: This topic is for Document/Medical only.

This example shows how you can use the AnnAutomation property to access the automation object through DLL functions.

Dim IsBold As Integer ' Is the object's text bold
Dim hAnnObject As Long

hAnnObject = Me![LEAD1].Object.AnnAutomation

' Set the default font to bold, unless it already is
myReturn = L_AnnGetFontBold(hAnnObject, IsBold)

If IsBold <> 0 Then
    MsgBox "Already bold", 0, "Notice"
Else
    myReturn = L_AnnSetFontBold(hAnnObject, True, 0)
End If