EnumerateMarkers example for Visual Basic

Dim WithEvents Marker1     As LEADMarkers
Private Sub LoadMarker_Click()
   Marker1.Load "c:\image1.jpg", 0
   Marker1.EnumMarkers
End Sub


Private Sub Marker1_EnumerateMarkers (ByVal lType As Long, ByVal 
                      ElementCount As Long) 
Print lType, ElementCount
For i = 0 To ElementCount - 1
Marker1.Element (i) 
 Next i
End Sub