AnnAutoCursor example for Visual Basic

' This sample swaps the Default and Move annotation cursors
Private Sub SampleAnnAutoCursors ()
   Dim hCursorMove As IPictureDisp
   Dim hCursorDefault As IPictureDisp

   ' Get copy of original cursors
   Set hCursorDefault = RasterAnn.AnnAutoCursor(ANN_AUTOCURSOR_DEFAULT)
   Set hCursorMove = RasterAnn.AnnAutoCursor(ANN_AUTOCURSOR_MOVE)

   ' Change
   RasterAnn.AnnAutoCursor(ANN_AUTOCURSOR_DEFAULT) = hCursorMove
   RasterAnn.AnnAutoCursor(ANN_AUTOCURSOR_MOVE) = hCursorDefault

End Sub