Изменение координат примитива

Спасибо, я этот метод нашел, но не могу пока сообразить как этот макрос под эту задачу переделать...
Sub GetLatLon()
'На момент запуска макроса необходимо открыть карту, активировать слой
Set L = Zulu.ActiveMapDoc.Layers.Active

' Создали объект объект базы данных Zulu
Set Db = CreateObject("Zb.Database")


'Проекция слоя Set CRS1 = L.GetCrs()

'Создание проекция WGS84
Set CRS_WGS84 = CreateObject("zululib.CRS")
CRS_WGS84.InitByCode("EPSG:4326")

'Открыли базу данных для типа -1 (примитивы)
Db.Open L.ObjectTypes.Item(2).BaseName

'Список ключей объектов слоя
Set Keys = L.ElementKeys

'По всем объектам слоя
For i = 1 To Keys.Count

Set El = L.Elements.getElement(Keys.Item(i))

'Если объект примитив
If El.TypeID = 2 Then

'Получаем точку центра объекта в координатах проекции слоя
Set Pt = El.GetCenter()

'Получаем широту и долготу точки в WGS84
Set Pt = CRS1.GetConvertPoint(Pt.X, Pt.Y, CRS_WGS84)

'Записываем широту и долготу в соответствующие поля ("X" и "Y")
Db.UpdateBaseRecord Keys.Item(i), "X" + CHR(10) + "Y", CStr(Pt.X) + CHR(10) + CStr(Pt.Y), 0

End If
Next
End Sub


Не подскажите?

Читайте описание объектной модели, читайте описание VBScript

Sub MoveToXY(X As Double, Y As Double, RedrawView As Boolean, ChangeAngle As Boolean)

Написано X и Y числа, а Вы строки подставляете. Выше нигде Xn и Yn не заданы.

Сценарий такой:
Открываете базу данный,
получаете для заданного ID объекта запись,
в записи находите значения полей X и Y,
и уже получив значения, подставляете их в метод MoveToXY