AnnGetNameOffsetX Example for Visual Basic

'This sample shifts the NameOffset of the annotation object hObject
'two pixels in the X direction and one pixel in the Y direction
Private Sub SampleNameOffset(hObject As Long)
   Dim OffsetX As Long
   Dim OffsetY As Long
   OffsetX = RasterAnn.AnnGetNameOffsetX(hObject)
   OffsetY = RasterAnn.AnnGetNameOffsetY (hObject)
   
   OffsetX = OffsetX + 2
   OffsetY = OffsetY + 1
   MsgBox "Shifting Name Offset to " + CStr(OffsetX) + "," + CStr(OffsetY)
   
   RasterAnn.AnnSetNameOffsetX hObject, OffsetX, False
   RasterAnn.AnnSetNameOffsetY hObject, OffsetY, False
End Sub