Retrieve XY Coordinate

JayKappy

I have a project that I am creating that I need to get the XY from a point that has just been created.
Example:  THe user adds a new point feature in ArcPAD.  I need to write the XY to varaible...a message box would be fine as well as I woudl be able to write that to a variable eventually.

I am trying this and keep getting 0 for the X value

Any thoughts on how to retrieve the XY....NOTE this is before the feature gets saved...so its a pending XY value

THanks in advance

Dim objRS4, objSelLayer4, objEFPageOneControls4, objEditForm4
Set objSelLayer4 = Map.SelectionLayer
Set objRS4 = objSelLayer4.Records

objRS4.Bookmark = Map.SelectionBookmark

Set objEditForm4 = application.map.layers("Supports").forms("EDITFORM")
MessageBox "The X coord is " & objEditForm4.Fields.Shape.X

Anonymous User

Here are afew lines from a tool I have written in the past. This explains populating a field/control with eastings and northings base don whether the user map clicks or uses the GPS. It doesn't answer your question about lat and long, but I'm sure it's possible...

If Application.UserProperties ("AddPoint_ToolUsed")="addpoint" then
  objEFPageOneControls("EASTING").value = FormatNumber(Map.PointerX,2,-2,-2,0)'FormatNumber(Map.PointerX,2)
  objEFPageOneControls("NORTHING").value = FormatNumber(Map.PointerY,2,-2,-2,0)'FormatNumber(Map.PointerY,2)
  Application.UserProperties ("AddPoint_ToolUsed")=""
else
  objEFPageOneControls("EASTING").value = FormatNumber(GPS.X,2,-2,-2,0)'FormatNumber(GPS.X,2)
  objEFPageOneControls("NORTHING").value = FormatNumber(GPS.y,2,-2,-2,0)'FormatNumber(GPS.Y,2)
end if