AnnSetAutoText Example for Access 2.0

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

Dim TestText As String
TestText = Me![LEAD1].Object.AnnGetAutoText (ANNAUTOTEXT_MENU_UNDO)
TestText = TestText + " - New"
Me![LEAD1].Object.AnnSetAutoText ANNAUTOTEXT_MENU_UNDO, TestText