Problem getting an ActiveX component to work

[HennekensSM]

Oke guys, I also got it more or less running. At least I see a map.
Antonio, you hint works fine.
I'll come back in a few days with a working sample including zooming and panning.

Regards,
Stephan

[HennekensSM]

to zoom in add the following code:

#DEFINE moZoomIn 51
oMap:SetProp("MousePointer", moZoomIn)


In function EventInfo add the following:

IF event == "Click"
IF oMap:GetProp("MousePointer") == moZoomIn
oRect := oMap:Do("TrackRectangle")
oMap:SetProp("Extent", oRect)
oMap:Do("Refresh")
ENDIF

However, this code does not work. oMap:Do("TrackRectangle") returns a handle to a rectangle object. I have no idea how to assign this object to the Extent property of oMap

Also the tracking does not work well.



Regards,
Stephan