You are in the right forum.
To add the legend
Code:
MapPointControl1.PaneState = geoPaneLegend
To work with a Pushpin that you have selected.
Code:
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
End If