I use this routine in my application:

Private Sub Befehl0_Click()
Dim objApp As New MapPoint.Application
Dim objFindResults As MapPoint.FindResults

objApp.Visible = False
objApp.UserControl = True

'Erstes Ergebnis der Suche ausgeben
Set objFindResults = objApp.ActiveMap.FindAddressResults("Römerstraße 12", "Düren", , , "52349", geoCountryGermany)
MsgBox "Das erste Element in der Ergebnisliste lautet: " _
+ objFindResults.Item(1).Name
objApp.Application.Quit
End Sub

But instead of the name of I would like to get back Lat/Lon. Is this possible?
Ralf

It is.. see Gilles Kohl's article "A More Compact Method for Obtaining the Lat/Lon" in the articles section..

Eric

I saw the article but isn´t there simpler way to get lat/lon from the FindAdressResult?
I don´t understand how I can get lat/lon from the given addresses with Gill Kohl´s routine.
Ralf

There's not an easier way.. err, there are some compiled tools that use Gilles routine that you can use without programming, but using programming Gilles CalcPos is the way to go.

First create the Location or Pushpin and then use the CalcPos function to get the lat/lon. You could probably make a wrapper so it's all done in one step.

Eric

Sorry but can you help me again?
I´m not able to call the function CalcPos.

Here is my routine:

Private Sub Befehl0_Click()
Dim MPApp As New MapPoint.Application
MPApp.Visible = True
MPApp.UserControl = True
Dim oMap As MapPoint.MAP, oLoc As Object, Strasse As String, Plz As String, stadt As String
Dim oPin As MapPoint.Pushpin
Dim objResults As MapPoint.FindResults
Dim strRevAddress As String
Dim lat As Double, lon As Double
Set oMap = GetObject(, "MapPoint.Application").ActiveMap
Strasse = "Römerstraße 12"
Plz = "52351"
Ort = "Düren"
Set oLoc = oMap.FindAddressResults(Strasse, Ort, , , Plz, geoCountryGermany)
Call CalcPos(oMap, oLoc.Location, lat, lon)
MsgBox oLoc.Item(1).Name & lat & " " & lon
End Sub

I allways get an error.

For the second argument of calcpos try using a mappoint.location object.
Define for instance the following

dim oLoc as mappoint.location

then do everything else the same and in the calcpos call just use oLoc instead of oLoc.location

hope this works