Since the post is in this forum I thought you were asking about MapPoint Web Service. Anyway try this for ActiveX


Public Sub ShowLocation(ByVal dblLatitude As Double, ByVal dblLongitude As Double)

On Error GoTo Er

Dim objLoc As MapPointCtl.Location
Dim oPushPin As MapPointCtl.Pushpin


Set objLoc = ctlMap.ActiveMap.GetLocation(dblLatitude, dblLongitude)
Set oPushPin = ctlMap.ActiveMap.AddPushPin(objLoc, DispatchLocation.SiteName)
oPushPin.Symbol = cDISPATCHLOCATIONICON

ctlMap.ActiveMap.DataSets.ZoomTo
ctlMap.ActiveMap.Altitude = 60

CleanExit:
Set objLoc = Nothing
Set oPushPin = Nothing
Exit Sub

Er:
'***Handle Error here
Resume CleanExit

End Sub