AnnTicMarkLength example for Visual Basic

Private Sub ExampleAnnTicMarkLength(hObject As Long)
    Dim ObjectType As AnnObjectType
    Dim Length As Double

    RasterAnn.AnnGetType hObject
    ObjectType = RasterAnn.AnnType


    If ObjectType <> ANN_OBJECT_POLYRULER and ObjectType <> ANN_OBJECT_RULER Then
    MsgBox "This Object is not a Polyruler or a Ruler Object"
    End If

    Length = RasterAnn.AnnTicMarkLength(hObject)

    Length = Length + 10

    RasterAnn.AnnTicMarkLength(hObject) = Length

End Sub