Option Compare Database

Private objMap As MAPPOINT.MappointControl
Private objRoute As MAPPOINT.Route
Private objSA As MAPPOINT.StreetAddress
Private objPush As Pushpin
'Private objway As Waypoints
Private oLoc As Object


Private Sub cmdPlot_Click()
    If txtAddress <> "" Then
        ApplyPoint
    End If
End Sub


Private Sub Form_Load()
    Set objMap = Mapctl.Object
    objMap.NEWMAP geoMapEurope
End Sub


Public Function ApplyPoint()

    If objMap Is Nothing Then Set objMap = Me!Mapctl.Object
    Set objSA = objMap.ActiveMap.ParseStreetAddress(PICKUPADDRESS & " , " & PICKUPTOWN & " , " & PICKUPCOUNTY & " , " & PICKUPPOSTCODE)
    Set oLoc = objMap.ActiveMap.FindAddressResults(objSA.Street, objSA.City _
     , , objSA.Region, objSA.PostalCode)
     
    If Not oLoc Is Nothing And oLoc.ResultsQuality <> geoNoResults Then
    
        Set objPush = objMap.ActiveMap.AddPushpin(oLoc(1).Location, Me.PICKUPCUSTOMER)
        objPush.BalloonState = geoDisplayName
        objMap.ActiveMap.ActiveRoute.Waypoints.Add oLoc(1) 'Adds Awaypoint to map
        objPush.Location.GoTo
        Set objPush = Nothing
        Set oLoc = Nothing
    End If

End Function