Dim objmap As MapPointctl.Map 
Dim objPushpin As MapPointCtl.Pushpin 

Set objmap = MapPointControl1.ActiveMap 
      'Make sure the item selected on the map is a pushpin 
    If TypeOf objmap.Selection Is Pushpin Then 
      Set objPushpin = MapPointControl1.Selection        
      'Do Something 
      msgbox objpushpin.name
    End If