AnnSetAutoText example for Visual Basic

Note: Also works with Access 95 and 97.

Note: This topic is for Document/Medical only.

This example modifies the text string that is used for the undo option on the annotation pop-up menu.

Dim TestText As String
TestText = Lead1.AnnGetAutoText(ANNAUTOTEXT_MENU_UNDO)
TestText = TestText + " - New"
Lead1.AnnSetAutoText ANNAUTOTEXT_MENU_UNDO, TestText