MapForums

Sub ImportCustomSymbol()

Dim objApp As New MapPoint.Application
Dim objMap As MapPoint.Map
Dim objPin As MapPoint.Pushpin
Dim objSymbol As MapPoint.Symbol

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


// If you have 1000 pictures named 0001.bmp to 1000.bmp
// while adding your pushpins you have to attach  your pictures to the object pins created
 
// there is the sample  code for the first picture


Set objPin = objMap.AddPushpin(objMap.FindResults("Seattle, WA")(1))
Set objSymbol = objMap.Symbols.Add(objApp.Path + "\Samples\0001.bmp")   
objPin.Symbol = objSymbol.ID



End Sub