Hi,

Try to Search your address using FindAddressResults or AddPushPin or FindResults... and GOTO method

This function does the job in VB6

Sub ZoomToLocation()

Dim objApp As New MapPoint.Application
Dim objMap As MapPoint.Map
Dim objectal As MapPoint.Location

'Configure l'application
Set objMap = objApp.ActiveMap
objApp.Visible = True
objApp.UserControl = True

'Obtient un lieu, puis effectue un zoom sur la meilleure vue de carte de ce lieu

Set objectal = objMap.FindResults("Seattle, WA").Item(1)
objectal.GoTo

End Sub


Ciao