MapForums

Private Sub Form_Load()
    'Configure l'application
    Set objApp = CreateObject("mappoint.application")
    Set objMap = objApp.ActiveMap
    objApp.Visible = True
    objApp.UserControl = True
  End Sub

  Private Sub objMap_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)

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

  Set objMap = objApp.ActiveMap
  objApp.Visible = True
  objApp.UserControl = True

   
Set objPin = objMap.Selection
   
  If TypeOf objMap.Selection Is Pushpin Then
    MsgBox ObjPin.Name 
  Else
    MsgBox "No selection!"
  End If

  End Sub