MapForums

I'm writing a VB6 application using the MapPoint ActiveX
control.

I`m looking for a methode to disallow move manuell added
push-pins. Did anyone now how I can do this ?

Somebody in other ducussion group wrote that I can also disable object selection. I did not find the property I can do this.

Can somebody talk me how I can diabele selection of the object ?

hi, there's an article titled "Making pushpins inmoveable" or something like this, you can use, the code in vb6 is:

Private Sub MappointControl1_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
Dim sp As MapPoint.Shape
Dim loc As MapPoint.Location
If Button = MapPoint.GeoMouseButtonConstants.geoLeftButton Then
If Not MappointControl1.ActiveMap.Selection Is Nothing Then
If TypeOf MappointControl1.ActiveMap.Selection Is Pushpin Then
Set loc = MappointControl1.ActiveMap.GetLocation(80, 0) 'get a location over at the arctic ocean
Set sp = MappointControl1.ActiveMap.Shapes.AddShape(GeoAuto ShapeType.geoShapeRectangle, loc, 1, 1)
sp.Select
sp.Delete
End If
End If
End If
End Sub

hope is usefull