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

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