I have a problem with CreateObject method and I need your help!!

This problems is:

I need GetObject functionality but using CreateObject method, because
GetObject method works only with MapPoint 2002.

For example,

Dim oMap As Mappoint.Map
Dim oLoc As Mappoint.Location

Set oMap = GetObject(, "MapPoint.Application").ActiveMap

works but,

Set oMap = CreateObject("Mappoint.Aplication").ActiveMap

doesn't work because the compiler returns an ActiveX problem and

Set aux = CreateObject("Mappoint.Application")
Set oMap = aux.ActiveMap

doesn't work because the returned map doesn't show the Location (although it is the same as the first option).

Thanks a lot