ArcPadScripting
CenterAt and CenterAtXY Example

Description

Centers the map at the location clicked by the user.

VBScript Code

Copy Code
 Sub CenterMap
  Dim objPoint
  Set objPoint = Application.CreateAppObject("point")
  objPoint.X = Application.Map.PointerX
  objPoint.Y = Application.Map.PointerY
  Application.Map.CenterAt(objPoint)
  Set objPoint = Nothing
End Sub
Sub CenterMapXY
  Dim lngPointerX, lngPointerY
  lngPointerX = Application.Map.PointerX
  lngPointerY = Application.Map.PointerY
  Call Application.Map.CenterAtXY(lngPointerX,lngPointerY)
End Sub