AnnAdjustPoint example for Visual Basic

Private Sub ExampleAnnAdjustPoint(hObject As Long, AnchorX As Double, AnchorY As Double, MoveX As Double, MoveY As Double)

    Dim Angle As Double

    Angle = RasterAnn.AnnGetAngle(hObject)

    RasterAnn.AnnAdjustPoint AnchorX, AnchorY, MoveX, MoveY, Angle, ANN_ADJUST_HORIZONTAL

End Sub