VB6 and AxMapWinGIS Events


I use AxMapWinGIS with my VB.Net project to Identify a selected shape, like described below:

Private Sub EVT_ShapeHighlighted(sender As Object, e As AxMapWinGIS._DMapEvents_ShapeHighlightedEvent) Handles mapView.ShapeHighlighted

Then I use e.shapeIndex within my code…

But on older huge project using VB6, I could not find how to proceed, AxMapWinGIS just not available…

How can I use mapView events with VB6 ?