MarkEnd Example VB

In this example, when the MarkEnd event fires, the Undo selection on the Edit menu is updated so it indicates the action the Undo method will perform if the user invokes it.

Private Sub ImgEdit1_MarkEnd(ByVal Left As Long, ByVal Top As Long, ByVal Width As Long,
 ByVal Height As Long, ByVal MarkType As Integer,
 ByVal GroupName As String)
    'This event could be used after an annotation mark is drawn
    'to change the caption on an undo menu selection to indicate
    'what action undo will take.
    mnuEditUndo.Caption = "Undo Annotation"
End Sub